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

问题描述

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

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)

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）