如果选择了radiobutton，请关闭ggvis输出

Question

我有一个单选按钮，我想在我的ui.R文件中使用它来打开和关闭ggvis图。当单选按钮设置为开时，我将显示ggvis图。当它关闭时，我想显示一个表输出。我有以下代码。

if(input$check==on){
vis %>% bind_shiny("plot1")}

我收到以下错误。

Operation not allowed without an active reactive context.

我想知道如何检查输入$ check（收音机是否打开）然后决定显示ggvis，否则显示表格。

Answer 1

使用conditionalPanel。见http://shiny.rstudio.com/reference/shiny/latest/conditionalPanel.html

以下是我ui.R个文件中的一个示例：

sidebarPanel(
        radioButtons("compare", "Select By Date or Price",
                     c("Previous Date", "Price Change"), selected = "Previous Date"),
        br(),
        conditionalPanel(condition = "input.compare == 'Previous Date'",
          uiOutput("date_selected")
          ),
        conditionalPanel(condition = "input.compare == 'Price Change'",
          numericInput("price_change", "Enter Price Change %", 0, -100, 100)
          )
        )

只需更改output。