如果选择radiobutton，则关闭ggvis输出

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

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

我得到以下错误

Operation not allowed without an active reactive context.

---

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

使用

条件面板

。看

下面是我的

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)
          )
        )

只需更改

输出