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

我正在开发一个使用几个html小部件的R Shiny应用程序，特别是 networkD3 ， d3heatmap 和 chorddiag 。

这些小部件可以单独正常工作。但是，在同一页面中使用它们会在它们应该保留的位置留下空格。

这是显示该错误的可复制代码。在用户界面中注释图行，您将看到图的出现和消失。

非常感谢您的帮助!

# 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)

最佳答案

networkD3在2017年2月更新为version 0.3中的D3v4，它与D3的v3版本不兼容，这是chorddiag和d3heatmap似乎使用的版本。 htmlwidgets是驱动上述软件包的基础软件包，仅使用依赖关系的最新版本，因此使用同一库的冲突版本的htmlwidgets不能同时工作。在here中检查有关此问题的讨论起点。

您有几种可能的选择，尽管它们都不是很好的选择...

将networkD3还原为版本

大厅，用于 chorddiag developers和 d3heatmap developers升级到D3v4

游说厅，为 htmlwidgets developers提出一种可靠的方式来处理冲突的JavaScript依赖项

关于r - R Shiny中的html小部件之间的交互，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/46270473/