RStudio Connect已pin数据集列表能否通过pin_get实现部分提取

无法直接通过pin_get()仅提取已pin列表中的单个子数据集。
你将100个数据集打包为一个列表上传到RStudio Connect时，平台会将整个列表作为单一序列化对象存储，调用pin_get()时必须拉取完整列表才能解析内容，没有办法单独拉取列表内的某一个数据框。

方案1：拆分单个数据集为独立pin（推荐，可实现按需拉取） #

把每个数据集单独作为pin上传，统一命名规则，Shiny侧根据用户选择的编号拼接pin名称，仅拉取对应单个数据集，大幅降低资源占用和加载耗时。

上传侧代码 #

# 注册rsconnect board
board_register("rsconnect", 
                server = MY_SERVER,
                key = MY_KEY)

# 遍历批量pin每个数据集
lapply(1:100, function(x) {
  target_df <- mtcars # 替换为你实际的第x个数据集
  pin(target_df, paste0("biz_dataset_", x), board = "rsconnect")
})

Shiny侧代码 #

library(shiny)
library(pins)

# 提前注册board
board_register("rsconnect", 
                server = MY_SERVER,
                key = MY_KEY)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      selectInput(
        inputId = "df_num",
        label = "选择数据集编号",
        choices = 1:100,
        multiple = FALSE
      )
    ),
    mainPanel(
       plotOutput("plot")
    )
  )
)

server <- function(input, output, ...) {
  # 响应用户选择，仅拉取对应单个数据集
  selected_df <- reactive({
    pin_get(paste0("biz_dataset_", input$df_num), board = "rsconnect")
  })
  
  output$plot <- renderPlot({
    plot(selected_df())
  })
}

shinyApp(ui, server)

方案2：保留整列表pin写法（仅适合小体积数据集场景） #

如果100个数据集总大小很小（比如总占用低于100M），你原本的写法也可以正常运行，只是会在Shiny启动时一次性加载全部100个数据集到内存中，后续用户切换选择时不需要重新请求RStudio Connect，适合用户会频繁切换数据集的轻量场景。

注意你原本的示例代码存在语法问题：sidebarPanel和mainPanel之间缺少逗号，server函数缺少闭合括号，最后也没有调用shinyApp()启动应用，补充后即可正常运行。

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