modalDialog не появляется, если используется sankeyNetwork (networkD3) - PullRequest
Новая
       37

modalDialog не появляется, если используется sankeyNetwork (networkD3)

0 голосов
/ 19 мая 2018

У меня проблема, когда я использую modalDialog в блестящей и sankeyNetwork (networkD3).Если sankeyNetwork отображается в приложении, то modalDialog не появляется - я вижу только серый экран, но без диалогового окна.

Нажмите Показать модальные, когда sankeyNetwor виден

Нажмите Показать модальные, когда 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)

Знаете ли вы, как решить эту проблему?

Спасибо!

Бартек

1 Ответ

0 голосов
/ 20 мая 2019

Эта проблема была решена с помощью версии dev shiny и должна быть выпущена на CRAN, как только shiny v1.3.3.

...