在闪亮仪表板的单独表格中显示每组 data.frame

Question

我正在尝试根据分组变量拆分数据框，然后在闪亮的仪表板应用程序中将每个组显示为单独框中的表格。 但是，我在所有表格中一直得到相同的组。每个框的标题都显示正确，如果我介绍一些打印语句，我还可以看到似乎处理了正确的数据。 以下是重现问题的示例：

library(tidyverse)
library(shiny)
library(shinydashboard)

ui <- dashboardPage(
    dashboardHeader(),
    dashboardSidebar(),
    dashboardBody(uiOutput("tables"))
)

server <- function(input, output) {
    output$tables <- renderUI({
        df <- iris %>%
            group_by(Species) %>%
            group_split()
        
        ui <- tagList()
        for(df.split in df) {
            id <- paste0("tbl_", df.split[1, "Species"])
            output[[id]] <- renderTable(head(df.split, 3))
            ui <- append(
                ui,
                box(
                    title = df.split[1, "Species"],
                    tableOutput(id)
                )
            )
        } 
        return(ui)
    })
    
}

shinyApp(ui = ui, server = server)

Answer 1

这是一个有趣的案例。我认为这应该可行，如果不是，请告诉我：

library(tidyverse)
library(shiny)
library(shinydashboard)

multiple_dt <- function(output,id,table_list){
  ns <- NS(id)
  ui <- tagList(lapply(table_list,function(df.split){
    box(
      title = as.character(df.split[1, "Species"]),
      tableOutput(ns(as.character(df.split[1,"Species"]))),
      output[[ns(df.split[1,"Species"])]] <- renderTable(head(df.split, 3))
    )
  }))
  ui
}

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(uiOutput("tables"))
)

server <- function(input, output) {
  output$tables <- renderUI({
    df <- iris %>%
      group_by(Species) %>%
      group_split()
    
    multiple_dt(output,"tables",df) 
  })
}
shinyApp(ui = ui, server = server)

我认为您的代码中有多个错误。首先，我认为您的附加无法正常工作，因为要呈现的表没有很好地存储在列表中（它们只是连续存储，而应该有一个层次维度，这是在函数multiple_dt 中创建的lapply)。 此外，当您创建像这样的复杂闪亮对象时，您应该创建一个新函数来渲染它，就像我对具有 NS id 等的结构化代码所做的那样。