主页 / coding / 问题 / 79031925
Accepted
J K
Asked: 2024-09-27 23:02:10 +0800 CST

从 Shiny 中的列表对象中被动提取数据

  • 772

我正在尝试提取列表中存储的数据。我已经学习了基本的反应性，但现在我陷入困境，因为我不知道如何处理列表中的列表。

如果我运行该应用程序，我希望能够查看每个列表的底层数据框。

例如，如果我在左侧的下拉菜单中选择“output_2”，那么我希望在页面的右侧看到数据框（从 2:20 开始）。

library(tidyverse)
library(shiny)
library(DT)

# create dummy data frames
df1.1 <- data.frame(Item = 1:10, Amount = 1:10)
df1.2 <- data.frame(Item = 1:10, Amount = 1:10)
df1.3 <- data.frame(Item = 1:10, Amount = 1:10)

df2.1 <- data.frame(Item = 2:20, Amount = 2:20)
df2.2 <- data.frame(Item = 2:20, Amount = 2:20)
df2.3 <- data.frame(Item = 2:20, Amount = 2:20)

df3.1 <- data.frame(Item = 3:30, Amount = 3:30)
df3.2 <- data.frame(Item = 3:30, Amount = 3:30)
df3.3 <- data.frame(Item = 3:30, Amount = 3:30)

# create list with dummy dfs
dummy_list1 <- list(df1.1 = df1.1,
                    df1.2 = df1.2,
                    df1.3 = df1.3)

dummy_list2 <- list(df2.1 = df2.1,
                    df2.2 = df2.2,
                    df2.3 = df2.3)

dummy_list3 <- list(df3.1 = df3.1,
                    df3.2 = df3.2,
                    df3.3 = df3.3)

# create data 
previous_data <- list(output_1 = dummy_list1,
                      output_2 = dummy_list2,
                      output_3 = dummy_list3)

previous_data_names <- previous_data %>% names()  

# Define UI for the app

ui <- fluidPage(
  titlePanel("Output Selector App"),
  sidebarLayout(
    sidebarPanel(
      selectInput("dataset", "Choose a dataset:", 
                  choices = previous_data_names)
    ),
    mainPanel(
      navlistPanel(
        tabPanel("df_1", dataTableOutput("df_1")),
        tabPanel("df_2", dataTableOutput("df_2")),
        tabPanel("df_3", dataTableOutput("df_3")),
      )
    )
  )
)


# Define server logic for the app
server <- function(input, output, session) {
  
  output$df_1 <- renderDataTable(
    datatable(df1.1)
  )
  
  output$df_2 <- renderDataTable(
    datatable(df1.2)
  )
  
  output$df_3 <- renderDataTable(
    datatable(df1.3)
  )
  
}


# Run the application
shinyApp(ui = ui, server = server)

1 个回答

  1. Best Answer

    您需要previous_data在input$dataset渲染函数中引用：

    例如：

      output$df_1 <- renderDataTable(datatable(previous_data[[input$dataset]][[1]]))
  output$df_2 <- renderDataTable(datatable(previous_data[[input$dataset]][[2]]))
  output$df_3 <- renderDataTable(datatable(previous_data[[input$dataset]][[3]]))

    或者，等效地：

      d <- reactive(previous_data[[input$dataset]])
  for(i in 1:3) output[[paste0("df_",i)]] <- renderDataTable(datatable(d()[[i]]))
    • 1

相关问题