r - 使用用户导入的数据生成 R 脚本

Question

我目前正在开发一个 Shiny 应用程序，它允许用户导入数据集，对其进行分析，然后显示结果。我希望用户能够下载用于执行计算的 R 脚本，以实现可重复性。为了做到这一点，我想将导入的数据集直接打印到脚本中，这就是我的想法:

library(shiny)

df <- data.frame("time" = c(0,1,2,3), "conc" = c(0,0.1,0.2,0.3))

ui <- fixedPage(
    
    fixedRow(
        downloadButton("download_button", label = "Download")
    )
)

server <- function(input, output, session){
    
    output$download_button <- downloadHandler(
        filename = function(){
            paste0("script_", Sys.Date(), ".R")
        },
        content = function(file) {
            writeLines(paste("df <- ", df), file)
        
        }
    )
}

shinyApp(ui,server) 

问题是结果文件如下所示:

df <-  c(0, 1, 2, 3)
df <-  c(0, 0.1, 0.2, 0.3)

我希望它看起来像这样(或者至少类似):

df <- data.frame("time" = c(0,1,2,3), "conc" = c(0,0.1,0.2,0.3))

这可能吗？

感谢您的宝贵时间。

Answer 1

在writelines函数中使用capture.ouput(dput(df))

  writeLines(paste("df <- ", capture.output(dput(df))), file, sep = "\n")

它将在 Rscript 中生成此内容

df <- 结构(列表(时间 = c(0, 1, 2, 3), conc = c(0, 0.1, 0.2, 0.3df <- )), class = "data.frame", row.names = c(NA, -4L))