R Shiny：读取 CSV 并使用 dplyr 和 ggplot 保存在变量中

Question

我正在尝试将 fileInput 添加到我的 R Shiny 程序中，用户可以将他们自己的 CSV/Excel 文件添加到其中，但是，我遇到了一些问题。

如果我直接从我的 PC 运行代码读取 CSV（没有 fileInput），我没有问题，但任何时候我尝试输入它都会出错。

我做了一些研究并试图复制我在网上看到的内容，但他们的解决方案对我不起作用。我已经看过this post 和this post，但是他们的方法不起作用。或者我还是做错了什么。

ui <- fluidPage(

  theme = 'custom.css',

  dashboardPage(
    dashboardHeader(title = 'Student Grades'),
    dashboardSidebar(
      fileInput(inputId = 'file', label = 'Select a file...'),
      selectInput(inputId = 'periodVar', 
                  label = 'Select Period',
                  choices = unique(grades$Period)),
      uiOutput('secondSelection'),
      dataTableOutput('individualSummary'),
      img(src='lhimg.JPG', width = '100%')
                    ),

    dashboardBody(
      useShinyjs(),
      tabsetPanel(
        tabPanel(
          'Test',
          tableOutput('contents')
                ),
        tabPanel(
          'Graph',
          plotOutput('individualGraph')
                )
          )
    )
  )
)

server <- function(input, output, session) {

  # grades <- eventReactive(input$file, {
  #   read.csv(input$file$datapath)
  # })

  grades2 <- reactive({
    inFile <- input$file
    if (is.null(inFile))
      return(NULL)
    myTbl <- read.csv(inFile$datapath)
    return(myTbl)
  })

  # observe({
  #   grades2 = input$file
  #   if (is.null(file)) {
  #     return(NULL)
  #   }
  #   grades2 = read.csv(grades2$datapath)
  # })

  tidyGrades <- function(data){
    data %>% 
      gather(key = Type, value = Grade, (c('Test', 'Quiz', 'Homework')), na.rm = T) %>% 
      arrange(Period, Student,Date, Type) %>% 
      mutate(Weight = ifelse(Type == 'Homework', 30, 
                             ifelse(Type == 'Quiz', 20, 50)),
             Date = mdy(Date))
  }

  weightedMeanDf <- tidyGrades(grades2)

我的代码有一个小的 sn-p。如果需要，我可以发布整个内容，但我不想在寻求帮助时使其难以阅读。 weightedMeanDf 只是我需要做的一件事，但我还需要生成一些其他图表和表格。注释代码是我根据在线解决方案尝试过的不同方法。我得到的最接近的是在服务器函数中使用未注释的代码（第一个反应）函数。

但是我得到了这个错误：

  Error in UseMethod("gather_") : 
  no applicable method for 'gather_' applied to an object of class "c('reactiveExpr', 'reactive')" 

我真的很茫然，现在我的想法已经不多了。也许我的做法完全错误。也许最好的方法是对创建的每个绘图和数据框使用反应函数？我觉得这只会减慢一切，而不是读取 csv 文件一次，然后根据第一次读取生成图形和绘图？

Answer 1

这个怎么样？？？

library(shiny)
library(digest)

# Create data to read
write.csv(file="~/iris.csv",iris)

shinyApp(ui=shinyUI(
  fluidPage(
    sidebarLayout(
      sidebarPanel(
        textInput("path","Enter path: "),
        actionButton("readFile","Read File"),
        tags$hr()
      ),
      mainPanel(
        tableOutput('contents')
      )))
),
server = shinyServer(function(input,output,session){
  file <- reactiveValues(path=NULL,md5=NULL,rendered=FALSE)

  # Read file once button is pressed
  observeEvent(input$readFile,{
    if ( !file.exists(input$path) ){
      print("No such file")
      return(NULL)
    }
    tryCatch({
      read.csv(input$path)
      file$path <- input$path
      file$md5  <- digest(file$path,algo="md5",file=TRUE)
      file$rendered <- FALSE
    },
    error = function(e) print(paste0('Error: ',e)) )
  })

  observe({
    invalidateLater(1000,session)
    print('check')

    if (is.null(file$path)) return(NULL)

    f   <- read.csv(file$path)
    # Calculate ckeksum
    md5 <- digest(file$path,algo="md5",file=TRUE)

    # If no change in cheksum, do nothing
    if (file$md5 == md5 && file$rendered == TRUE) return(NULL)

    output$contents <- renderTable({

      print('render')
      file$rendered <- TRUE
      f
    })
  })

}))