闪亮 - submitButton和conditionalPanel

Question

我的ul.R上有很多条件面板，但是当添加提交按钮时它们不像以前一样工作 - 在点击按钮之前UI不会自动更新（条件面板不会出现，在点击提交之前按预期消失，

shinyUI(fluidPage(

  headerPanel("Citizen Sense PM 2.5 Data Visualization Tool"),

  sidebarPanel(

    # Function options.
    radioButtons(
        inputId = "plot", 
        label = "Select a graph or a plot:", 
        choices = c(
            "Line Graph" = "line", 
            "Scatter Plot" = "scatter"
            ), 
        selected = NULL, 
        inline = FALSE
        ),

    # Condition for line graph. 
    conditionalPanel(
        condition = "input.plot == 'line'",
        radioButtons(inputId = "lineVariation", 
            label = "Choose a variation:", 
            choices = c(
                "Multiple" = "multiple", 
                "Single" = "single"
                ), 
            selected = NULL, 
            inline = FALSE)
        ),


    submitButton("Submit")

  ),
...

我能做些什么呢？

Answer 1

要解决此问题，请执行以下操作：

1. 转出提交按钮，改为使用操作按钮。
2. 使用RenderUI编写输出，如果散射则不显示任何内容，或者如果是线图，则显示无线电按钮。
3. 修改上面的＃2，使其对输入$ plot的引用被隔离，并且仅在从＃1点击操作按钮时更新。