r - “没有活动的反应上下文的操作”，几乎所有服务器功能都是如此

我试图让一个Shiny应用程序运行并收到此错误。我知道通常的解释（在反应式表达式之外访问input$foo或output$foo）。但这似乎并不适用于我的情况。我在shinyServer函数中移动了几乎所有逻辑。所以我的server.R看起来像：

library(shiny)

shinyServer(
  function(input, output) {
    parts <- strsplit(input$text, split=" ")
    ok <- c()
    ...
  }
)

所以外面只有进口产品（这些产品都是在早期版本中工作的，我愚蠢地没有修改）。我已将问题缩小到shinyServer函数中显示的两行;这个问题不会随其中任何一个发生，而是两个都发生了崩溃。

更新：所以我想出来了：我认为shinyServer调用中的函数是一个反应式表达式，但它不是。我必须依次包装其代码来访问对reactive（）的调用中的输入。