0

我尝试根据单选按钮 input 的值显示径向网络或对角网络(使用包networkD3param_type_graph ) 。我试图在我的 renderUI() 函数中添加一些 if 语句,但显然它不起作用。闪亮的应用程序就在那里。它仅适用于径向外壳。请使用以下输入测试应用程序:第一个输入:“ petrus ”;第二个输入:' WinesAndCo ',然后点击最后一个蓝色按钮提交。

用户界面

ui <- fluidPage(

  # Application title
  titlePanel("Carrefour Hierarchical Exploration"),

  sidebarLayout(

    # Sidebar with a slider input
    sidebarPanel(
      textInput("param_caption", "Rechercher une famille de vin : ", "petrus"),
      radioButtons("param_sites", "Choisis sur quel site",
                   c("Auchan" = "1",
                     "G.V.P." = "2",
                     "Lavinia" = "3",
                     "Millesima" = "4",
                     "Vinatis"="5",
                     "WinesAndCo"="6")),
      radioButtons("param_typegraph", "Type de Graphique",
                   c("Radial Network" = "rad",
                     "Diagonal Network" = "diag"
                     )),
      sliderInput("param_height", "Graph Height:",
                  min = 300, max = 3000, value = 300
      ),
      sliderInput("param_width", "Graph Width:",
                  min = 400, max = 4000, value = 400
      ),
      sliderInput("param_size", "Police Size:",
                  min = 10, max = 60, value = 10
      ),
      actionButton(inputId="param_go",label="Submit",style="color: #fff; background-color: #337ab7; border-color: #2e6da4")


    ),
    # Show a plot of the generated distribution
    mainPanel(
      uiOutput('mygraph')

    )
  )
)

服务器

server <- function(input, output) {
# a lot of compution ... that I do not display
# ...
  output$graphresdiag <- renderDiagonalNetwork({
    diagonalNetwork (tree_to_display(),height = input$param_height,width = input$param_width, fontSize = input$param_size)
  })
  output$graphresrad <- renderRadialNetwork({
    radialNetwork (tree_to_display(),height = input$param_height,width = input$param_width, fontSize = input$param_size)
  })

  output$mygraph= renderUI({

    if (isolate(input$param_typegraph)=="diag")
        {diagonalNetworkOutput(outputId = "graphresdiag",
                                width = paste0(input$param_width,"px"),
                                height =paste0(input$param_height,"px") )}

    if (isolate(input$param_typegraph)=="rad")
    {radialNetworkOutput(outputId = "graphresrad",
                           width = paste0(input$param_width,"px"),
                           height =paste0(input$param_height,"px") )}


  })

}

你会怎么做才能让它发挥作用?

4

2 回答 2

1

好吧,伙计们,我做到了。下面是我修改以使其工作的部分代码。

用户界面

mainPanel(

  conditionalPanel(
    condition = "input.param_typegraph == 'rad'",
    uiOutput('mytabs')
  ),
  conditionalPanel(
    condition = "input.param_typegraph == 'diag'",
    uiOutput('mytabsii')
  )

)

服务器

  output$graphresdiag <- renderDiagonalNetwork({
    diagonalNetwork (tree_to_display(),height = input$param_height,width = input$param_width, fontSize = input$param_size)
  })
  output$graphresrad <- renderRadialNetwork({
    radialNetwork (tree_to_display(),height = input$param_height,width = input$param_width, fontSize = input$param_size)
  })

  output$mytabs = renderUI({

radialNetworkOutput(outputId = "graphresrad",
                           width = paste0(input$param_width,"px"),
                           height =paste0(input$param_height,"px") )

  })


  output$mytabsii = renderUI({

    diagonalNetworkOutput(outputId = "graphresdiag",
                          width = paste0(input$param_width,"px"),
                          height =paste0(input$param_height,"px") )

  })
于 2016-10-30T22:18:40.303 回答
1

我正在为未来的读者添加这个答案。

我正在使用 NetworkD3 包并试图做类似的事情并意识到您的代码可以通过这种方式简化:

用户界面

mainPanel(
conditionalPanel(
    condition = "input.param_typegraph == 'rad'",
    radialNetworkOutput('mytabs')
),
conditionalPanel(
    condition = "input.param_typegraph == 'diag'",
    diagonalNetworkOutput('mytabsii')
)
)

服务器

output$mytabs <- renderDiagonalNetwork({
    diagonalNetwork (tree_to_display(), height = input$param_height, width = input$param_width, fontSize = input$param_size)
})
output$mytabsii <- renderRadialNetwork({
radialNetwork (tree_to_display(), height = input$param_height, width = input$param_width, fontSize = input$param_size)
})

})

基本上你是这样做的:

UI:条件面板 <- uiOutput(x)

服务器: output$x <- renderUI <- yOutput(z) <- output$z <- renderY

这可以简化为:

UI:条件面板 <- yOutput(x)

服务器:输出$x <-renderY

希望它可以帮助某人。

于 2018-07-13T15:33:25.800 回答