Shiny应用开发：如何将导入数据集写入可下载R脚本以保障可复现性

当然可以实现你想要的效果！问题出在你当前使用paste("df <- ", df)的方式上：当你把data.frame对象和字符串拼接时，R会自动将data.frame转换为字符向量（每一列对应一个元素），所以writeLines会把每个列的向量单独输出一行，就出现了你看到的两行df <- c(...)的错误结果。

下面提供两种方法来生成你期望的脚本格式：

方法1：使用deparse()生成准确的可复现代码 #

deparse()函数可以将R对象转换成能够重新创建该对象的代码文本，虽然它生成的是structure()格式而非直接的data.frame()调用，但同样能准确重建你的数据集，而且代码更通用（适合复杂数据结构）。

修改后的server部分代码：

server <- function(input, output, session){
  output$download_button <- downloadHandler(
    filename = function(){
      paste0("script_", Sys.Date(), ".R")
    },
    content = function(file) {
      # 将df转换为可复现的代码字符串
      df_code <- paste(deparse(df, width.cutoff = 1000), collapse = "")
      # 拼接赋值语句
      script_text <- paste0("df <- ", df_code)
      # 写入文件
      writeLines(script_text, file)
    }
  )
}

生成的脚本内容会是：

df <- structure(list(time = c(0, 1, 2, 3), conc = c(0, 0.1, 0.2, 0.3)), class = "data.frame", row.names = c(NA, -4L))

这段代码可以完全重建你的原始df数据框。

方法2：手动构造data.frame()格式的代码 #

如果你希望严格匹配你给出的data.frame(...)格式，可以手动提取列名和列值，构造对应的代码字符串：

修改后的server部分代码：

server <- function(input, output, session){
  output$download_button <- downloadHandler(
    filename = function(){
      paste0("script_", Sys.Date(), ".R")
    },
    content = function(file) {
      # 为每一列生成"列名 = c(值1,值2,...)"的字符串
      col_defs <- lapply(names(df), function(col_name) {
        values <- paste(df[[col_name]], collapse = ",")
        paste0('"', col_name, '" = c(', values, ')')
      })
      # 拼接成data.frame调用语句
      df_code <- paste0("data.frame(", paste(col_defs, collapse = ", "), ")")
      # 拼接赋值语句
      script_text <- paste0("df <- ", df_code)
      # 写入文件
      writeLines(script_text, file)
    }
  )
}

生成的脚本内容会完全符合你的期望：

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

两种方法都能满足你保证分析可复现性的需求，你可以根据对代码格式的偏好选择其中一种。

内容的提问来源于stack exchange，提问作者Go.0