Shiny函数返回reactiveValues访问报错：无法将closure转为character向量

你的错误和input初始化无关，是对reactiveValues和reactive的用法混淆导致的：

• reactiveValues的作用是存储普通值，其自带响应式特性，即值更新时会自动通知所有依赖它的响应式上下文。
• 你给reactiveValues的属性赋值了reactive()表达式，而reactive本身是一个函数（类型为closure），而非普通值。当你调用x$select时，拿到的是函数本身，而非函数返回的值，在paste时尝试将函数转为字符就会触发你看到的报错。
• 这种写法本身也不符合Shiny的设计规范，会导致重复的响应式依赖、不必要的更新甚至内存泄漏。

根据你的使用需求，有两种标准实现方式：

方案1：保留reactiveValues（适合需要双向修改值的场景） #

reactiveValues的属性直接存普通值，通过observe监听input变化更新值即可：

修改后的assignvals函数代码 #

assignvals <- function(input, output, session) {
  
  vals <- reactiveValues(
    select = '',
    text = '',
    num = 0
  )
  
  # 监听输入变化，更新reactiveValues的存储值
  observe({ vals$text <- input$text })
  observe({ vals$select <- input$select })
  observe({ vals$num <- input$num })
  
  return(vals)
}

修改后的server代码 #

reactiveValues的属性本身就是响应式的，不需要额外套reactive：

source('assignvals.R')

ui <- fluidPage(
  selectInput('select', 'select', choices = c('', 'option1', 'option2')),
  htmlOutput('display')
)

server <- function(input, output, session) {
  x <- assignvals(input, output, session)
  
  output$display <- renderUI({
    h4(HTML(paste('<b>你选择了：</b>', x$select )))
  })
}

shinyApp(ui = ui, server = server)

方案2：返回响应式表达式列表（适合仅需要读取封装值的场景） #

如果你不需要修改封装的响应式值，只是要统一封装input的访问逻辑，不需要用reactiveValues，直接返回reactive表达式的列表即可：

修改后的assignvals函数代码 #

assignvals <- function(input, output, session) {
  return(list(
    text = reactive(input$text),
    select = reactive(input$select),
    num = reactive(input$num)
  ))
}

修改后的server代码 #

调用时需要加()执行reactive表达式拿到值：

source('assignvals.R')

ui <- fluidPage(
  selectInput('select', 'select', choices = c('', 'option1', 'option2')),
  htmlOutput('display')
)

server <- function(input, output, session) {
  x <- assignvals(input, output, session)
  
  output$display <- renderUI({
    h4(HTML(paste('<b>你选择了：</b>', x$select() )))
  })
}

shinyApp(ui = ui, server = server)

内容的提问来源于stack exchange，提问作者tamarack