R Shiny 中 html 小部件之间的交互

Question

我正在开发一个 R 闪亮应用程序，它使用多个 html 小部件，特别是networkD3、d3heatmap和chorddiag。

这些小部件单独工作正常。但是，在同一页面中使用它们会在它们应该出现的地方留下空白。

这是显示错误的可重现代码。在 UI 中注释绘图行，您将看到绘图出现和消失..

我非常感谢你的帮助！

# libraries
library(shiny)
library(d3heatmap)
library(chorddiag)
library(networkD3)

# Server
server <- function(input, output) {

  # create heatmap
  output$heatmap <- renderD3heatmap({
    d3heatmap(mtcars, scale = "column", colors = "Spectral")
  })

  # create chord diagram
  output$chord <- renderChorddiag({
    m <- matrix(c(11975,  5871, 8916, 2868,1951, 10048, 2060, 6171, 8010, 16145, 8090, 8045,1013,   990,  940, 6907),
    byrow = TRUE, nrow = 4, ncol = 4)
    haircolors <- c("black", "blonde", "brown", "red")
    dimnames(m) <- list(have = haircolors, prefer = haircolors)
    groupColors <- c("#000000", "#FFDD89", "#957244", "#F26223")
    chorddiag(m, groupColors = groupColors, groupnamePadding = 20)
  })

  # create sankey
  output$sankey <- renderSankeyNetwork({
    nodes=data.frame(ID=c("A","B","C","D","E"))
    links=data.frame(source=c(1,2,3), target=c(3,4,4), value=c(12,15,29))
    sankeyNetwork(Links = links, Nodes = nodes, Source = "source", Target = "target", Value = "value", NodeID = "ID")
  })

}



# Ui
ui <- fluidPage(
  sidebarLayout(
    sidebarPanel("shiny shines"),
    mainPanel(
        # Comment these lines and you will see charts appear / disappear.
        d3heatmapOutput("heatmap"),
        chorddiagOutput("chord"),
        sankeyNetworkOutput("sankey")
    )
  )
)

shinyApp(ui = ui, server = server)

Answer 1

networkD32017 年 2 月在版本 0.3中更新为 D3v4 ，该版本与 D3 的 v3 版本不兼容，而 D3 似乎chorddiag正在d3heatmap使用。htmlwidgets，它是驱动上述包的底层包，仅使用依赖项的最新版本，因此使用同一库的冲突版本的 htmlwidgets 不能同时工作。检查此处以获取有关此问题的讨论的起点。

你有一些可能的选择，尽管它们都不是很好......

1. 恢复networkD3到 < 0.3 的版本，以便它也使用 D3v3

2. 为chorddiag开发者和d3heatmap开发者升级到D3v4的游说

3. 游说htmlwidgets开发人员想出一种强大的方法来处理 JavaScript 依赖项冲突