闪亮的 DownloadHandler 在服务器上不起作用

Question

我是新来的，我对 Shiny Apps（或一般的应用程序、网站和服务器）没有太多经验。我的应用程序有效（也在服务器上）。只有下载按钮生成报告并在服务器上保存文件（报告副本和excel文件）。我还尝试将报告复制到临时文件。但这对我也不起作用。有谁知道我该如何解决这个问题？ 该应用程序存储在以下路径：/data/web/www/vhost/myapp.com/

我想将报告的副本保存在子文件夹 (/data/web/www/vhost/myapp.com/reports) 中，并将数据集保存在另一个子文件夹 (/data/web/www/vhost/myapp.com) 中/数据集）。在本地，我可以使用 setwd 实现这一目标。

output$dokumentationsbericht <- downloadHandler(
filename = function(){paste("Bericht_", input$skz, "_", input$monat, ".pdf", sep='')},    
content = function(file) {
cat(c(report_yaml, sep="\n"),
c(überschrift2, sep="\n"),
c(print({paste("_**Name des SQM: **_", input$sqm)}), sep="\n"),
          
c(überschrift3, sep="\n"),
c(print(pandoc.table.return(data(), style="multiline", split.tables=170)), sep="\n"),
c(newPage, sep="\n"),
c(überschrift4, sep="\n"),
c("_**Welche inhaltlichen Schwerpunkte wurden in diesem Monat gesetzt?**_", sep="\n"), 
        
sep="\n", file= paste("Bericht_", input$skz, "_", input$monat, ".Rmd", sep=''))
      
report_path <- tempfile(fileext = ".Rmd")
file.copy(paste("Bericht_", input$skz, "_", input$monat, ".Rmd", sep=''), report_path, overwrite = TRUE)
        
rmarkdown::render(report_path, 
output_file = file,
envir = new.env(parent = globalenv()))
})

Answer 1

• cat 仅打印内容但不将其分配给变量（尝试测试cat("foo") -> foo)
• 我建议使用模板，例如stringr::str_glue
• 函数downloadHandler 的参数content 是一个带有参数file 的函数。然后该函数会将内容写入到 file 变量中闪亮设置的文件路径

library(shiny)
library(tidyverse)

report_yaml <- "Test: foo"
überschrift2 <- "Title"
input <- list(
  skz = "foo",
  monat = "Jan",
  sqm = "bar"
)

template <- "
{report_yaml}

{überschrift2}
Name des SQM: {input$sqm}
"

output$dokumentationsbericht <- downloadHandler(
  filename = function(){paste("Bericht_", input$skz, "_", input$monat, ".pdf", sep='')},    
  content = function(file) {
    str_glue(template) %>%
      write_file(file)
  }
)