Shiny如何获取用户输入路径生成数据集及修复代码异常

你的代码存在3处核心错误，直接导致页面无输入入口、功能失效：

• UI语法错误：fluidPage() 内传入的多个UI组件必须用逗号分隔，你写的textInput()和tableOutput()之间遗漏逗号，UI解析失败，输入框自然无法渲染。
• 响应式逻辑错误：Shiny的input值是响应式依赖，不能直接在server顶层环境调用读取；且应用刚启动时输入框为空，直接执行read.csv()会因为空路径直接抛出错误，中断应用运行。
• 渲染逻辑错误：glimpse()是dplyr面向控制台输出的函数，打印的文本结构不匹配renderTable()要求的矩形数据格式，无法正常渲染为表格。

# 加载依赖
library(shiny)
library(dplyr)

ui <- fluidPage(
  # 注意：同层级UI组件之间必须加逗号分隔
  textInput("data_path", "Please enter the path of your data: "),
  tableOutput("data_glimpse")
)

server <- function(input, output){
  # 将数据读取封装为响应式对象，输入路径变化时自动触发重新读取
  data <- reactive({
    # 输入为空时终止后续计算，避免初始阶段报错
    req(input$data_path)
    # 校验路径合法性，路径无效时返回友好提示
    validate(
      need(file.exists(input$data_path), "输入的文件路径不存在，请检查路径拼写是否正确")
    )
    read.csv(input$data_path)
  })
  
  output$data_glimpse <- renderTable({
    # 展示数据前6行，适配表格渲染要求
    head(data())
    # 如果你的需求是展示glimpse输出的数据结构，请将renderTable替换为renderPrint，内部写glimpse(data())即可
  })
}

shinyApp(ui = ui, server = server)

补充说明：如果你的应用后续需要部署到公共服务器，不建议用手动输入本地路径的方案，换成Shiny自带的fileInput()组件实现文件上传，兼容性和安全性都更好。

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