从R脚本生成R脚本[Scriptseption]

Question

我正在尝试制作R脚本生成器。问题是新文件显示为文本文件而不是R脚本。有没有办法将它们呈现为R脚本？

预期图标： 结果图标：

require("here", character.only = TRUE)

files.to.create <- c("main.R",
                     "functions.R",
                     "explore.R",
                     "initialize.R",
                     "load_data.R",
                     "build.R",
                     "analyze.R",
                     "build_ppt.R",
                     "prepare_markdown.R",
                     "markdown_report.Rmd")

try.to.make.files <- function(file.name, path){
  if( .Platform$OS.type == "unix" ) {
    new.file.name <- paste(path,"/", file.name, sep = "") 
  }
  else {
    new.file.name <- paste(path,"\\", file.name, sep = "") 
  }
  cat(new.file.name,"\n")
  unlink(new.file.name)
  success <- file.create(new.file.name)
  print(success)
  return (TRUE)
}

invisible( lapply( files.to.create,
                   try.to.make.files,
                   here("src")))

更新 好吧，如果文件是空的，Ubuntu会将其作为空文本文件处理，强制它显示txt图标而不是R图标。填写文件可以解决问题。