R Shiny Dashboard本地/Google Sheet数据上传问题求助

嗨，我仔细看了你的代码，找到导致数据不显示和关闭应用后控制台持续运行的问题啦！下面是修复后的完整代码，再给你详细说说每个问题的原因和解决思路：

library(shiny)
library(shinydashboard)
library(googlesheets4)
library(googledrive)
library(DT) # 显式加载DT包，避免渲染时出现依赖问题

server = function(session, input, output) {
  # 上传数据的逻辑
  myData = eventReactive(
    # 监听所有相关输入的变化：上传方式、本地文件、分隔符
    c(input$select_upload, input$file_myData, input$sep_file_myData),
    {
      if(input$select_upload == "local") {
        req(input$file_myData) # 确保文件已上传后再执行读取
        read.csv(
          input$file_myData$datapath,
          header = TRUE,
          stringsAsFactors = FALSE,
          sep = input$sep_file_myData
        )
      } else if(input$select_upload == "online") {
        req(gs4_find("myData_sample")) # 确保能找到目标Google表格
        as.data.frame(range_read(gs4_find("myData_sample")))
      }
    }
  )
  
  # 展示数据：用正确的render函数绑定输出组件
  output$display_myData = DT::renderDataTable({
    req(myData()) # 确保数据加载完成后再渲染表格
    DT::datatable(myData(), options = list(scrollX = TRUE))
  })
  
  # 解决关闭应用后控制台持续运行的问题：断开Google服务连接
  session$onSessionEnded(function() {
    gs4_deauth()
    drive_deauth()
  })
}

ui = dashboardPage(
  dashboardHeader(title = "My dashboard"),
  dashboardSidebar(
    sidebarMenu(
      id = "sidebarmenu",
      menuItem("Data upload", tabName = "data", icon = icon("database")),
      conditionalPanel(
        "input.sidebarmenu === 'data'",
        selectInput(
          inputId = "select_upload",
          label = "please select an option",
          choices = c("local", "online"),
          selected = "local"
        )
      )
    )
  ),
  dashboardBody(
    tabItems(
      tabItem(
        tabName = "data",
        conditionalPanel(
          condition = "input.select_upload === 'local'",
          fileInput(inputId = "file_myData", label = "Choose csv file", accept = c("text/csv", "text/comma-separated-values", "text/plain", ".csv")),
          radioButtons(inputId = "sep_file_myData", "Separator", choices = c(Comma = ",", Semicolon = ";", Tab = "\t"), selected = ",")
        ),
        fluidRow(
          box(
            title = "myData information uploaded",
            solidHeader = TRUE,
            status = "primary",
            width = 12,
            DT::dataTableOutput(outputId = "display_myData")
          )
        )
      )
    )
  )
)

shinyApp(ui, server)

问题1：数据无法展示的修复细节 #

• 输出绑定错误：你之前用eventReactive定义output$display_myData，但Shiny的输出组件必须对应render*系列函数，这里改用DT::renderDataTable直接绑定到dataTableOutput，数据加载后就能自动渲染出来。
• 触发依赖不全：原来的myData只监听了input$select_upload，但本地上传时，用户选择文件或切换分隔符的操作也需要触发数据重新读取。所以把监听对象改成c(input$select_upload, input$file_myData, input$sep_file_myData)，确保所有相关输入变化时都能更新数据。
• 冗余代码与逻辑优化：删掉了多余的input_option响应式变量，在线上传分支直接用input$select_upload更清晰；添加req()函数确保只有满足条件时才执行后续代码，避免空值报错。

问题2：关闭应用后控制台持续运行的修复 #

使用googlesheets4和googledrive连接Google服务后，会话不会自动断开，导致关闭Shiny应用后R控制台还在维持连接。我们通过session$onSessionEnded()添加了回调函数，当用户关闭应用时自动调用gs4_deauth()和drive_deauth()断开连接，这样控制台就能正常停止运行了。

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