我设计了一个R markdown文档，它包含r代码块，内联r和各种渲染函数的组合。
我在doc中添加了几个Shiny输入，我想在r代码的早期将这些输入提供给两个变量，然后doc中的各个代码段可以依赖于这些变量。代码的一些示例如下。
我在使用此文档时遇到问题。 （“没有主动反应上下文时不允许操作。（你试图做一些只能在反应式表达式或观察者内部完成的事情。）”）
如果我能就如何编辑代码来获得一些建议，那将会很棒。
# set up shiny input
``` {r echo = FALSE}
inputPanel(
textInput("fmno","Enter code", placeholder = "Code"),
selectInput("comparator", "Choose your comparator", choices = c("OP", "GE"), selected = "GE")
)
```
# feed inputs into variables in r code for use later in doc
```{r}
fmno <- reactive({get(input$fmno)})
comparator <- reactive({get(input$comparator)})
person_table <- person_table[person_table$fmno == fmno, ]
op_table <- op_table[op_table$op == op, ]
ge_table <- ge_table[ge_table$ge == ge, ]
if (comparator == "OP") {
comp_table <- op_table
comp <- op
} else {
comp_table <- ge_table
comp <- ge
}
```