r - ShinyFiles::shinyDirChoose() + visNetwork... shape="icon" の問題

Question

私は、ユーザーがフォルダーを選択できるようにするシャイニー アプリに取り組んでおりshinyFiles::shinyDirChoose()、visNetwork. アイコンを含めない限り、すべて正常に機能します / addFontAwesome()、その場合、shinyDirChoose()フォルダーとファイルは表示されません。修正はありますか、それともバグですか? 後者の場合、どのパッケージ、shinyFilesまたはvisNetwork?

これが MWE です。この例では、わかりやすくするために、フォルダーの選択は視覚化とは関係ありませんが、それでもエラーが再現されます。visNetworkこの例は、https : //datastorm-open.github.io/visNetwork/image_icon.htmlで実行されている例に基づいています。shinyFiles::shinyFilesExample()

library(magrittr)

server <- function(input, output) {

  volumes <- shinyFiles::getVolumes()

  shinyFiles::shinyDirChoose(input, "directory", roots=volumes)

  output$directorypath <- shiny::renderPrint({shinyFiles::parseDirPath(volumes, input$directory)})

  output$network <- visNetwork::renderVisNetwork({

    nodes <- data.frame(id = 1:5, group = c(rep("A", 2), rep("B", 3)))
    edges <- data.frame(from = c(2,5,3,3), to = c(1,2,4,2))

    visNetwork::visNetwork(nodes, edges, width = "100%") %>% 

      visNetwork::visGroups(groupname = "A", shape = "icon", 
                icon = list(code = "f0e3", color = "darkblue")) %>% 

       visNetwork::visGroups(groupname = "B", shape = "icon",
                 icon = list(code = "f000", color = "red")) %>% 

       visNetwork::addFontAwesome()

  })
}

ui <- fluidPage(

  shinyFiles::shinyDirButton("directory", "Folder select", "Please select a folder"),

  shiny::verbatimTextOutput("directorypath"), 

  visNetwork::visNetworkOutput("network")
)

shiny::shinyApp(ui = ui, server = server)

アイコンの部分が削除された場合、つまりvisGroups行は次のように変更されます。

  visNetwork::visGroups(groupname = "A", color = "darkblue") %>% 

  visNetwork::visGroups(groupname = "B", color = "red") 

それは正常に動作します。（visNetwork::addFontAwesome()ラインは問題ありません。）

私は困惑しています。