如果使用modalDialog (networkD3)，则不会出现

Question

当我在modalDialog和sankeyNetwork (networkD3)中使用时，我遇到了问题。如果sankeyNetwork是在应用程序中呈现的，那么modalDialog就不会出现--我只能看到灰色屏幕，但没有对话框窗口。

当sankeyNetwor可见时，单击Show

当sankeyNetwork不可见时单击“显示模式”

应用程序示例显示下面描述的问题。

library(shiny)
library(networkD3)

server <- function(input, output, session) {

  observeEvent(input$show_modal,{
    showModal(modalDialog(
      title = NULL, size = "m",
      h4("Test Window"),
      footer = NULL, easyClose = T
    ))
  })

  output$sankey <- renderSankeyNetwork({
    nodes<-data.frame(
      name=paste0(rep("opt",9),seq(1,9)), stringsAsFactors = F)

    links<-data.frame(
      source=c(0,0,0,1,1,2,2,3,4,4,5,6),
      target=c(4,5,6,5,6,4,6,6,7,8,7,8),
      value=c(2,3,5,1,2,3,1,6,1,3,7,4))

    quest<-list(nodes=nodes, links=links)
    sankeyNetwork(Links = quest$links, Nodes = quest$nodes, Source = "source",
                  Target = "target", Value = "value", NodeID = "name",
                  units = "opt", fontSize = 16, nodeWidth = 30, iterations = 2, sinksRight = T)
  })

  output$show_sankey<-renderUI({
    if(input$show_sankeyNetwork_box) sankeyNetworkOutput('sankey')
  })

}

ui <- fluidPage(titlePanel("Modaldialog + sankeyNetwork (networkD3) Problem"),
                sidebarLayout(
                  sidebarPanel(
                    actionButton("show_modal", "Show modal"),
                    checkboxInput('show_sankeyNetwork_box', "Show sankeyNetwork", value = F)),
                  mainPanel(
                    uiOutput('show_sankey'))
                ))

shinyApp(ui = ui, server = server)

你知道如何处理这个问题吗？

谢谢！

巴特克

Answer 1

这个问题已经用shiny的dev版本解决了，应该在CRAN上尽快在shiny v1.3.3上发布。