如何在Shiny的rhandsontable包中添加dropdownMenu功能？

你不需要写复杂的JavaScript代码，rhandsontable已经封装了Handsontable的dropdownMenu功能，直接通过R代码就能实现：

1. 启用默认下拉菜单 #

在hot_table()函数中设置dropdownMenu = TRUE，就能给所有列标题添加下拉图标，点击后显示默认的功能选项（排序、列可见性、筛选等）：

library(shiny)
library(rhandsontable)

ui <- fluidPage(
  rhandsontableOutput("my_table")
)

server <- function(input, output) {
  output$my_table <- renderRHandsontable({
    # 用mtcars数据集作为示例
    rhandsontable(mtcars) %>%
      hot_table(dropdownMenu = TRUE)
  })
}

shinyApp(ui, server)

2. 自定义下拉菜单选项 #

如果只想展示特定的功能，可以给dropdownMenu传一个包含功能名称的列表，指定要显示的选项：

output$my_table <- renderRHandsontable({
  rhandsontable(mtcars) %>%
    hot_table(
      dropdownMenu = list(
        "sort_asc",          # 升序排序
        "sort_desc",         # 降序排序
        "column_visibility", # 列可见性切换
        "hidden_columns"     # 隐藏列管理
      )
    )
})

常用的可选功能值包括："filter_by_condition"（条件筛选）、"filter_action_bar"（筛选工具栏）、"hidden_columns"、"column_visibility"、"sort_asc"、"sort_desc"等。

3. 版本注意 #

确保你的rhandsontable包是最新版本，旧版本可能不支持该参数的完整功能，更新命令：

install.packages("rhandsontable")

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