闪亮的fileinput r数据框

Question

使用 R shiny，我正在开发一个简单的应用程序，允许用户从文件中输入数据。使用 csv 或 txt 文件一切正常，但我无法加载 R 数据帧。

## SERVER.R
shinyServer(function(input, output) {
 infile <- reactive({
 infile <- input$datafile
 if (is.null(infile)) {
  # User has not uploaded a file yet
  return(NULL)
 }
 infile<load(input$datafile$datapath) 
 })

 myData <- reactive({
   df<-infile()
   if (is.null(df)) return(NULL)
 })
 output$value1 <- renderPrint({
   names(iris)
 })
 output$value2 <- renderPrint({
   names(myData())
 })
  load("iris.Rdata")   ## data loaded for testing 
})

## UI.R
shinyUI(fluidPage(
  fileInput("datafile", label = h3("File input")),
  fluidRow(column(4, verbatimTextOutput("value1"))),
  fluidRow(column(4, verbatimTextOutput("value2")))
))

当我运行这个应用程序时，我可以看到仅为测试加载的 iris 数据集的名称，但加载文件的名称（应呈现为 value2）仅显示“NULL”

有什么帮助吗？？提前致谢！

Answer 1

我想这就是你想要的。你有几个错别字，你可能不太明白 load 究竟做了什么，它将一组对象加载到内存中。

我做了以下事情：

• 添加了一些初始化代码来保存几个 .Rdata 用于测试，它们都只有一个对象，一个数据框。代码需要这个。
• 添加一行来解析加载的数据文件中的第一个对象并返回它

代码如下：

server.r

## SERVER.R

#Initialization
library(datasets)
save(iris,file="iris.Rdata")
save(mtcars,file="m.Rdata")

shinyServer(function(input, output) {
  infile <- reactive({
    infile <- input$datafile
    if (is.null(infile)) {
      # User has not uploaded a file yet
      return(NULL)
    }
    objectsLoaded <- load(input$datafile$name) 
    # the above returns a char vector with names of objects loaded
    df <- eval(parse(text=objectsLoaded[1])) 
    # the above finds the first object and returns it
    return(df)
  })

  myData <- reactive({
    df<-infile()
    if (is.null(df)) return(NULL)
    return(df)
  })
  output$value1 <- renderPrint({
    names(iris)
  })
  output$value2 <- renderPrint({
    names(myData())
  })
  load("iris.Rdata")   ## data loaded for testing 
})

ui.r

## UI.R
shinyUI(fluidPage(
  fileInput("datafile", label = h3("File input")),
  fluidRow(column(4, verbatimTextOutput("value1"))),
  fluidRow(column(4, verbatimTextOutput("value2")))
))

这是输出：