Question

在闪亮的地方，我有一个输入：

  selectInput(inputId="VarC",
              choices=choices_Var,
              multiple = T),

然后，在我的容器中，我试图将输入用作标题的字符：

sketch = htmltools::withTags(table(
      class = 'display',
      thead(
        tr(
          th(colspan = 1, 'First'),
          th(colspan = 2, 'Second'),
          th(colspan = 3, as.character(input$VarC))))

但是它不起作用。我认为即使使用as.character，我的输入也不是字符串，这就是为什么它不起作用的原因：/ 我有这个错误：类型为'closure'的对象不可子集

有人知道怎么做吗？

Answer 1

尝试此修改

sketch = htmltools::withTags(table(
      class = 'display',
      thead(
        tr(
          th(colspan = 1, 'First'),
          th(colspan = 2, 'Second'),
          th(colspan = 3, textoutput("text"))))

在应用服务器中添加此

output$text <- renderText(as.character(input$VarC))

无论如何，尝试添加应用程序的可重现示例，仅包含问题中涉及的元素。这可以帮助其他人为您提供帮助。

R.Shiny将输入转换为字符串

1 个答案: