R Shiny Dashboard：从本地文件和在线数据库上传数据（例如Google Sheet）

Question

我是Shiny dashboard的初学者，有个问题困扰了我很久
我的最终目标是将数据分配给名为“myData”的变量，但我为用户提供了从本地文件或在线文件（在我的示例中为 GoogleSheet）上传数据的选项。
下面是我的应用程序的简化版本。为了达到目标，我做了：

在“数据”选项卡下，我创建了一个选择框“input_option”，以便用户可以选择上传本地数据（=“本地”）或在线持久数据库中的数据（= “在线”；
我使用“eventReactive”根据“input_option”的值获取数据；
如果用户选择从在线数据库上传数据，数据将显示在仪表盘正文中；
如果用户选择从本地文件上传数据，在dashboard body中，会显示“fileInput”框，引导用户选择本地文件。然后数据也将显示在仪表板正文的下方。

但是，问题是：

无论哪种方式，数据都无法显示在仪表盘正文中。连数据有没有成功获取都不知道；
当我选择上传在线数据然后关闭应用程序时，R控制台没有暂停而是保持运行。

有哪位朋友或高手能帮我解答一下吗？非常感谢您的帮助！

library(shiny)
library(shinydashboard)
library(googlesheets4)
library(googledrive)

server = function(session, input, output)
{
  # "input_option" is used to select whether input data from local or online
  input_option = reactive(
    input$select_upload
  )
  
  # Upload the data
  myData = eventReactive(
    input$select_upload,
    if(input$select_upload == "local")
    {
      req(input$file_myData)
      read.csv(
        input$file_myData$datapath, 
        header = T, 
        stringsAsFactors = F, 
        sep = input$sep_file_myData)
    }
    else if(input_option() == "online")
    {
      as.data.frame(gs4_find("myData_sample") %>% range_read())
    }
  )
  
  # display the myData data uplaoded ---
  output$display_myData = eventReactive(
    myData(),
    DT::renderDataTable(
      myData(), options = list(scrollX = T)
    )
  )
}

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 = T, status = "primary",
            width = 12,
            DT::dataTableOutput(outputId = "display_myData")
          )
        )
      )
    )
  )
)

shinyApp(ui, server)

Answer 1

服务器中的两个更改将使本地文件工作，并且可能使 googledrive 工作。

server = function(session, input, output)
{
  # "input_option" is used to select whether input data from local or online
  input_option = reactive(
    input$select_upload
  )
  
  # Upload the data
  myData = eventReactive(
    input$file_myData, # HERE!
    if(input$select_upload == "local")
    {
      req(input$file_myData)
      read.csv(
        input$file_myData$datapath, 
        header = T, 
        stringsAsFactors = F, 
        sep = input$sep_file_myData)
    }
    else if(input_option() == "online")
    {
      as.data.frame(gs4_find("myData_sample") %>% range_read())
    }
  )
  
  # display the myData data uplaoded --- # AND HERE!
  output$display_myData = DT::renderDataTable(
    myData(), 
    options = list(scrollX = T)
  )
}

post 末尾的两个问题：

您可以使用在代码中粘贴 print() 语句的老派方法来调试闪亮的应用程序。观察 R 控制台，了解在您的应用程序中执行操作时 is/isn 未访问代码中的哪些位置。您还可以使用 str() 将仅在应用程序运行时才存在的对象结构打印到屏幕上，以便您了解如何处理它们。
这是正常行为 - 即使浏览器选项卡关闭，您的应用程序仍运行。请注意，您可以关闭选项卡并重新打开一个新选项卡（如果您从地址栏复制了 link）。您也可以同时打开多个选项卡！要关闭该应用程序，只需在 RStudio 中点击几次退出即可。

R Shiny Dashboard：从本地文件和在线数据库上传数据（例如Google Sheet）

R Shiny Dashboard: Upload data from both local file and the online database (such as Google Sheet)

user-input

r

shiny

shinydashboard

googlesheets4