Shiny中tags$button控制reactable列显隐异常问题求助

问题根源 #

1. R变量未传递至JS环境：你在JavaScript代码中直接使用了R的hidden_cols变量，但JS无法识别该R对象，导致执行逻辑异常。
2. 数组嵌套错误：原代码返回[hidden_cols]会生成二维数组，而Reactable.setHiddenColumns要求传入一维列名数组，这会导致reactable处理出错，最终表格消失。

修正方案 #

• 用jsonlite::toJSON()将R的hidden_cols向量转换为JS可识别的数组字符串，实现变量跨环境传递。
• 修正setHiddenColumns的返回逻辑，直接返回一维数组，避免嵌套结构。

修正后的代码 #

library(htmltools)
library(jsonlite)

data <- MASS::Cars93[1:5, c("Manufacturer", "Model", "Type", "Price",
                            "Passengers", "DriveTrain", "Cylinders", "EngineSize")]

hidden_cols <- c('Passengers', 'DriveTrain', 'Cylinders', 'EngineSize')
# 将R向量转换为JS数组格式的字符串
js_hidden_cols <- jsonlite::toJSON(hidden_cols, auto_unbox = FALSE)

htmltools::browsable(
  tagList(
    tags$button(
      "Show/hide more columns",
      onclick = sprintf(
        "Reactable.setHiddenColumns('cars-vis-table', prevColumns => {
          return prevColumns.length === 0 ? %s : []
        })", js_hidden_cols
      )
    ),
    reactable(
      data,
      columns = list(
        Passengers = colDef(show = FALSE),
        DriveTrain = colDef(show = FALSE),
        Cylinders = colDef(show = FALSE),
        EngineSize = colDef(show = FALSE)
      ),
      elementId = "cars-vis-table"
    )
  )
)

补充说明 #

• jsonlite::toJSON()会把R字符向量转为标准JS数组格式（如["Passengers", "DriveTrain", ...]），确保JS能正确解析。
• 通过sprintf()将转换后的JS数组字符串插入到点击事件的代码中，完成R到JS的变量传递。
• 修正后的逻辑：当前隐藏列数组为空时，设置为目标隐藏列数组；否则清空隐藏列数组，实现正常的显示/隐藏切换。

内容的提问来源于stack exchange，提问作者A-A-ron