错误：没有活动的响应上下文时不允许操作

Question

我正在写一个闪亮的应用程序，基本上如下所示：

ui <- fluidPage(

  fluidRow(
    column(6,  sliderInput("obs", "Input", min = 0, max = 1000, value = 500)),
    column(6, plotOutput(outputId = "plot2", height = "600px")))


  )

server <- function(input, output) {
  Input = reactive({
      Data = input$obs
      Data1 = ifelse(Data < 500, '1', '0')
      return(list(Data = Data, Data1 = Data1))
  })

  if (Input()$Data1 == '1') {
          output$plot2 = renderPlot(plot(1:5))
  } else {
          output$plot2 = renderPlot(plot(1:50))
  }

}

shinyApp(ui, server)

然而，当我运行此代码时，出现错误，如

  

.getReactiveEnvironment（）$ currentContext（）中的错误：     没有活动的反应上下文，不允许操作。 （你试图做一些只能在反应式表达式或观察者内部完成的事情。）

if (Input()$Data1 == '1')看起来一定有问题，但我无法弄清楚错误在哪里。