R Shiny - 响应式数据框下载到 csv

Question

我制作了一个允许用户上传多个 csv 文件的应用程序。

然后将这些 csvs 'rbind' 放在一起，'read.csv' 并在 df 中添加一列，即文件名。

然后处理 df 以生成可下载的各种图。这非常有效。但是，当我尝试从反应元素中下载特定数据框时，我无法让它工作。

在这个例子中，我想从 testinput 反应函数中下载 df1。

UI:

    dashboardPage( skin = "black",
   dashboardHeader(title = "myApp"),
   dashboardSidebar(collapsed = TRUE,
   sidebarMenu(
    menuItem("Home", tabName = "dashboard1", icon = icon("home", lib = 
  "glyphicon"))
    ) 
    ),
   dashboardBody(
     tags$head(tags$style(HTML('
      .main-header .logo {
                          font-family: "Times New Roman", serif;
                          font-weight: bold;
                          font-size: 24px;
                          }
                          '))),

tabItems(
  tabItem(tabName = "dashboard1",
          fileInput("file1",
                    label="Input files:",
                    multiple = TRUE),
          downloadButton('downloadData', 'Download Data')
  )
  )

)
)

服务器：

     library(shiny)
     library(shinydashboard)

     #server start
     function(input, output) {

       testinput<- reactive({
if(is.null(input$file1))
  return ()
else 
{
  nfiles = nrow(input$file1) 
  csv = list()
  for (i in 1 : nfiles)
  {

    csv[[i]] = read.csv(input$file1$datapath[i])

  }

  csv_names <- input$file1[['name']]
    actual_names<-input$statics$name
  df1<-cbind(actual_names, csv_names)
  mydata <- do.call(rbind, lapply(csv_names, function(x) cbind(read.csv(x), name=strsplit(x,'\.')[[1]][1])))
    df1<-cbind(df1, mydata)    
  }
   })

     output$downloadData <- downloadHandler(
filename = function() { paste(input$downloadData, " ",Sys.Date(),".csv",sep="") },
content = function(file) {
  write.csv(df1,file)
}
    )

 )


   }

任何帮助都会很棒，因为我搜索了很多 SO 和其他论坛，但我很困惑。

Answer 1

@Chabo 是正确的：

我必须创建一个新的 reactive()，然后作为输出 $ 呈现到我的 UI。

然后我可以下载反应事件

Answer 2

我想你可以 return 你想在反应函数中下载的变量，然后像这样在服务器函数中添加一个下载数据：

library(shiny)
library(shinydashboard)

#server start
function(input, output) {

  testinput<- reactive({
    if(is.null(input$file1)){
        return ()
    }
    else{
        nfiles = nrow(input$file1) 
        csv = list()
    }

    for (i in 1 : nfiles){

        csv[[i]] = read.csv(input$file1$datapath[i])

    }

    csv_names <- input$file1[['name']]
    actual_names<-input$statics$name
    df1<-cbind(actual_names, csv_names)
    mydata <- do.call(rbind, lapply(csv_names, function(x) cbind(read.csv(x), name=strsplit(x,'\.')[[1]][1])))
    df1<-cbind(df1, mydata)  
    return(df1)
  })

  output$downloadData <- downloadHandler(
    filename = function() {
      paste(input$dataset, ".csv", sep = "")
    },
    content = function(file) {
      write.csv(testinput(), file, row.names = FALSE)
    })
}

R Shiny - 响应式数据框下载到 csv

R Shiny - Reactive dataframe download to csv

r

event-handling

shiny

shiny-server

shiny-reactivity