Shiny：将代码应用于输入文件

Question

我有一个简单的问题： 我有一个闪亮的小工具，可以检查 csv 文件中的一些规则。 在编写代码时，我使用特定的 csv 对其进行了测试。 但是如果用户要使用闪亮工具来验证他们的csv文件，代码必须检查闪亮工具中上传的文件的规则：

如何将输入文件作为变量存储在全局环境中，以便将代码单独应用于输入文件？

我的代码如下所示：

rm(list=ls())
source("vr_test.R")
library(shiny)

ui <- fluidPage(
titlePanel("xx"),

  sidebarLayout(
    sidebarPanel(
      helpText("xx"),

      fileInput("file", h3("File input")),

      actionButton("button", "auswerten")

      ),

    mainPanel(
      textOutput("result")

    )
  )
  )


server <- function(input, output) {

  observeEvent(input$button, {
    output$result <- renderText({ 
    print(eval(parse(text=Formula))) # "Formula" is defined in sourced "vr_test.R"
  })
  }) 
}


shinyApp(ui=ui,server=server)

提前致谢。

Answer 1

您不应将 csv 存储在全局环境中。最佳做法是将其设为reactive，并以此为基础进行测试。下面给出了一个示例，用于测试 csv 是否有足够的行（假设在这种情况下我们需要超过 5 行）。

除了renderText，您还可以选择使用observeEvent，如果不满足条件，则显示modalDialog。

希望这会有所帮助！

library(shiny)

ui <- fluidPage(
  fileInput("file1", "Choose CSV File",
            accept = c(
              "text/csv",
              "text/comma-separated-values,text/plain",
              ".csv")),
  tableOutput("contents"),
  textOutput(my_test)
)

server <- function(input, output) {

  # Load csv as reactive
  my_csv <- reactive({
    inFile <- input$file1
    if (is.null(inFile))
      return(NULL)
    df<- read.csv(inFile$datapath, header=T)
    return(df)
  })

  output$my_test <- renderText({
    validate(need(!is.null(my_csv()),'No csv uploaded.'))

    # perform test here
    if(nrow(my_csv())>5)
    {
      return('Your csv has enough rows!')
    }
    else
    {
      return('Your csv has not enough rows!')
    }
  })

}

shinyApp(ui, server)