首页 文章

基于文件路径的闪亮下载文件

提问于
浏览 次
4

我有一个文件，我生成闪亮用户点击一个按钮，文件应该下载 . 但没有任何反应

函数 export_report 生成excel文件并将其保存到某个位置 . 然后，该函数将文件位置传递回下载处理程序，以便下载该文件 . 问题似乎是它没有正确返回 . 我已经测试了闪亮之外的函数（ export_report ）并且它完美地返回了所有内容，所以我从闪亮的角度来看显然做错了什么 .

文件本身是在应该在服务器上的地方创建的，因为我可以在RStudio中下载它并在文件浏览器中查看它 . 谁能帮忙

# UI Section
downloadButton("downloadRpt", "Download Report")

# Server Section
output$downloadRpt <- downloadHandler(

  filename = function() {
    mydf <- report()
    dateRange <- input$dates_report
    selection <- input$selection 
    myfile <- export_report (mydf, selection, dateRange)
  },
  content = function(file) {
    file.copy(myfile, file)
  }
)

我见过其他例子R Shiny: Download existing file这是我的代码所基于的

编辑1：添加带有一些假数据的export_report函数来运行它

export_report <- function(mydf,selection,dateRange) {

  # Template for where the template excel file is stored

  myoutputTemplate <- '/home/shiny_tutorials/Save to Database/templates/output_template.xlsx' 


  start_date <- dateRange[1] 
  end_date <- dateRange[2]
  date_range <- paste(start_date ,end_date, sep = " - " )

  # Load workbook the template workbook
  wb <- loadWorkbook(myoutputTemplate)

  # write to the workbook the data frame
  writeWorksheet(wb, mydf, sheet="Details",   
             startRow=8, startCol=2,    
             header=FALSE)                

  # add the the customer the user selected
  writeWorksheet(wb, selection, sheet="Details",   
             startRow=3, startCol=3,    
             header=FALSE)   

  # date
  writeWorksheet(wb, date_range, sheet="Details",   
             startRow=5, startCol=3,    
             header=FALSE)   

  # Create The file Name
  filename <- paste(selection, Sys.Date(), sep = " - ") %>% 
    paste(.,"xlsx", sep = ".")

  # removes the % sign and extra qoutes 
  filename <- gsub (pattern = '\'|%','', x = filename)

  # output directory
  myoutput <-  paste('/home/shiny_tutorials/Save to Database/output/',
               filename, sep = '')

  # Save workbook
  saveWorkbook(wb, myoutput)

  # Return File Path
  myoutput

}

要调用该功能，您可以使用以下数据

dateRange <- c("2011-09-23","2016-09-23")
selection = "COMPANY_A"
mydf <- iris
myfile <- export_report(mydf,selection,dateRange)

EDIT 2 我现在设法从中得到错误 . 当我在代码的 filename = function() { 部分中 cat(myfile) 时，在返回正确的文件路径后出现错误

rep中的警告（是的，length.out = length（ans））：'x'为NULL，因此结果为NULL警告：ifelse出错：replacement的长度为零堆栈跟踪（最里面的第一个）：1：runApp错误：替换的长度为零

这个错误基本上是因为我的文件路径没有传递给段 myfile 所以

if someone can tell me how to get the filepath generated by my function to the server section of the code below, that should fix my problem

content = function(file) {
    file.copy(myfile, file)
  }
r shiny

3 回答

  • 5

    感谢所有评论和澄清我对下载处理程序如何工作的思考的人 . 最后，我创建了一个新的函数，它将上面的导出函数分开 . 我使用的新函数叫做 generate_file() ，只返回文件名

    generate_file_name <- function(selection) {

  # Create The file Name
  filename <- paste(selection, Sys.Date(), sep = " - ") %>% 
    paste(.,"xlsx", sep = ".")

  # removes the % sign and extra qoutes 
  filename <- gsub (pattern = '\'|%','', x = filename)

  # output directory
  myoutput <-  paste('/home/shiny_tutorials/Save to Database/output/',
                 filename, sep = '')

  # Return File Path
  myoutput

    }

    然后在服务器端

    output$downloadRpt <- downloadHandler(
  filename = function() {
    selection <- input$company
    generate_file_name(selection)
  },

  content = function(file) {

    mydf <- report()
    dateRange <- input$dates_report
    selection <- input$company
    export_report(mydf,selection,dateRange)
    myfile <- generate_file_name(selection)
    file.copy(myfile, file)

  }
)

    然后，它会找到新创建的文件并将其导出给用户

    回复于
  • 3

    我刚用这个示例代码检查了你的问题并且它有效：

    output$downloadData <- downloadHandler(
    filename = function() {
        data <- mtcars
        myfile <- "data.csv"
        write.csv(data, myfile)
        myfile
    },
    content = function(file) {
        print(file) //prints: [...]\\Local\\Temp\\RtmpEBYDXT\\fileab8c003878.csv
        file.copy(file, file)
    }
)

    myfile是下载文件的文件名 . 您不能在file.copy中将其用作输入，此变量超出范围 . 似乎R创建了一个临时文件名（参见print（）） .

    回复于
  • 1

    尝试使用 filename 函数定义路径或自定义文件名，以及内容部分中的 write.csv . 示例代码：

    output$downloadData <- downloadHandler(
    filename = function() {
        paste(<user_name or date for eg>, ".csv", sep="")
        },
    content = function(file) {
        write.csv(data, file)
    }    
 )

    我在上面的评论中注意到，您已经询问过应用程序在多个用户使用时如何生成正确的文件 . 对于此部分，您需要使用 session .

    因此，如果您的业务逻辑函数来自名为foo.R的R文件，则服务器代码应如下所示：

    shinyServer(func = function(input, output, session) {
     source("./foo.R", local=TRUE)
     ......

    这将为每个用户分离会话，从而在下载时生成特定于每个用户的文件 . 希望这会给你一些指示 .

    回复于

相关问题