Shiny应用无法读取并展示指定包中dataset2的数据集内容求助

问题场景：在Shiny应用中，输入包名后dataset1能正常展示该包的数据集列表，但dataset2无法读取选中的数据集并显示其内容，需修复此问题。

问题根源 #

原代码中df2()仅返回选中数据集的名称字符串，未实际加载并获取对应的数据集对象，导致renderDataTable无法渲染出数据内容；同时重复调用library()会造成不必要的环境污染，且缺少对input$dat的必要校验。

修改后的完整代码 #

UI部分（无需修改） #

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

# Define UI for application that draws a histogram
ui <- fluidPage(

    # Application title
    titlePanel("Package with datasets and functions"),

    # Sidebar with a slider input for number of bins 
    sidebarLayout(
        sidebarPanel(
            textInput('pkg','Package Name', value = NULL),
            actionButton("update", "Update View"),
            helpText('Please enter the package name for which you want to see the list of datasets and functions (with parameters)'),
            br(),
            selectInput('dat','Datasets', choices = NULL, selected = NULL)
        ),

        # Show a plot of the generated distribution
        mainPanel(
            DTOutput("dataset1"),
            DTOutput("dataset2")
        )
    )
)

Server部分（核心修复） #

# Define server logic required to draw a histogram
server <- function(input, output, session) {

  pkgs <- reactive({input$pkg})
  
  df <- reactive({
    req(pkgs())
    data_name1 <- data(package=pkgs())
    as_tibble(data_name1$results) %>% 
      rename(name=Item, label=Title) %>% 
      select(-LibPath)
  })

  obse <- eventReactive(input$update, { df() })
  
  observe({
    req(obse())
    updateSelectInput(session, 
                      inputId = "dat", 
                      label = "Datasets", 
                      choices = obse()$name, 
                      selected = obse()$name[1])
  })
  
  # 修复数据集加载逻辑
  df2 <- reactive({
    req(obse(), input$dat)
    # 检查包是否存在并加载，避免全局环境污染
    if (!requireNamespace(input$pkg, quietly = TRUE)) {
      stop(paste("Package", input$pkg, "is not installed"))
    }
    # 加载指定数据集并获取对象
    data(list = input$dat, package = input$pkg)
    get(input$dat, envir = asNamespace(input$pkg))
  })
  
  output$dataset1 <- renderDataTable({
    DT::datatable(obse())
  })
  
  output$dataset2 <- renderDataTable({
    DT::datatable(df2())
  })
}

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

关键修复点 #

• 数据集加载逻辑：使用data(list = input$dat, package = input$pkg)加载指定数据集，再通过get()从包的命名空间中获取实际数据集对象，确保传递给renderDataTable的是可渲染的数据内容。
• 校验增强：添加req(input$dat)，确保只有选中数据集后才执行加载逻辑。
• 包加载优化：用requireNamespace()替代library()，避免全局环境污染，同时提前检查包是否已安装。
• 依赖精简：优化响应式依赖关系，移除冗余代码。

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