如何从闪亮的应用程序中获取选定属性的聚合数据？

Question

如果有人能帮助解决以下问题，那就太好了。

要求详情：-

如何将多个属性动态传递给 group_by/summaries 子句以获取 selected 属性的聚合数据？在我的例子中，我可以通过使用下面的代码来实现相同的目的，但它被属性和摘要属性限制为 1 个组。如果我 select 多个 group by 或 summary 属性，它会抛出错误。

library(dplyr) 
library(data.table) 
library(shiny) 
library(DT)


df1 <- data.frame("name"=c("AAA","BBB","CCC"),"dept"=c("HR","HR","FIN"),"Salary"=c(1000,1345,5678),"Salary2"=c(4567,7896,5678))

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
  pickerInput("Id0001","group by attributes",choices = unique(names(df1)),multiple = TRUE,options = list(`live-search` = TRUE)),
  pickerInput("Id0002","summary attributes",choices = unique(names(df1)),multiple = TRUE,options = list(`live-search` = TRUE)),
  actionButton("Id0003", "show data")
  ),
  mainPanel( DT::DTOutput("data_tbl") )
  )
)

server <- function(input,output,session){
  
  
  reactive_string  <- eventReactive(input$Id0003, {
    if (input$Id0003 > 0) {
      dt_agg_ui <<- df1  %>%
        group_by(!!rlang::sym(input$Id0001)) %>% 
        summarise_at(vars(!!rlang::sym(input$Id0002)),funs(sum,n()))
    }
    dt_agg_ui
  })
  
  output$data_tbl <- DT::renderDT( {reactive_string()})
  }
shinyApp(ui = ui, server = server)

Answer 1

使用 dplyr::across 和 tidyselect::all_of 可以这样实现：

library(dplyr) 
library(data.table) 
library(shiny) 
library(shinyWidgets) 
library(DT)


df1 <- data.frame("name"=c("AAA","BBB","CCC"),"dept"=c("HR","HR","FIN"),"Salary"=c(1000,1345,5678),"Salary2"=c(4567,7896,5678))

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      pickerInput("Id0001","group by attributes",choices = unique(names(df1)),multiple = TRUE,options = list(`live-search` = TRUE)),
      pickerInput("Id0002","summary attributes",choices = unique(names(df1)),multiple = TRUE,options = list(`live-search` = TRUE)),
      actionButton("Id0003", "show data")
    ),
    mainPanel( DT::DTOutput("data_tbl") )
  )
)

server <- function(input,output,session){
  
  
  reactive_string  <- eventReactive(input$Id0003, {
    if (input$Id0003 > 0) {
      dt_agg_ui <<- df1  %>%
        group_by(across(all_of(input$Id0001))) %>% 
        summarise(across(all_of(input$Id0002), .fns = list(sum = sum, n = ~ n())))
    }
    dt_agg_ui
  })
  
  output$data_tbl <- DT::renderDT( {reactive_string()})
}
shinyApp(ui = ui, server = server)

如何从闪亮的应用程序中获取选定属性的聚合数据？

How do I get aggregated data for selected attributes from shiny app?

r

shiny

shinyapps