如何在Shiny中使用rpivotTable的hiddenFromAggregators移除聚合器

嘿，我帮你搞定这个问题啦！你代码里的核心问题是R语言的列表语法使用错误：rpivotTable的hiddenFromAggregators参数需要接收R格式的列表（用list()创建），而不是JavaScript风格的方括号[]，这就是参数没生效的原因。

修正后的完整代码 #

library(shiny)
library(rpivotTable)
df <- iris

ui <- fluidPage(
  fluidRow(
    column(width=10, rpivotTableOutput("pivot"))
  )
)

server <- function(input, output, session) {
  output$pivot<-renderRpivotTable({
    rpivotTable(
      data = df,
      rendererName = "Heatmap",
      cols = c("Species"),
      rows = c("Petal.Width"),
      aggregatorName = "Count",
      # 这里把[]改成R的list()即可生效
      hiddenFromAggregators = list("Average")
    )
  })
}

shinyApp(ui = ui, server = server)

扩展说明 #

如果需要移除多个聚合器选项，只需要在list()里添加对应的选项名称即可，比如同时移除"Average"和"Sum"：

hiddenFromAggregators = list("Average", "Sum")

运行修正后的代码后，你会发现聚合器下拉菜单里已经看不到"Average"选项啦，完美实现你想要的效果～

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