如何使用模板以编程方式生成R代码和目录结构

Question

我有以下Shiny-app,按照以下方式组织

-- base_app
   |-- server.R
   |-- ui.R
   `-- www

例如,server.R包含以下行:

infile <- "foo.txt"
# do something with infile

我正在寻找一种自动生成app目录和文件内容的方法.例如,如果我们定义2个参数:

1. 应用名称 mycool_app

2. 输入文件: bar.txt

之后它将根据定义的模板生成此内容base_app.

-- mycool_app
   |-- server.R
   |-- ui.R
   `-- www

而新的server.R将包含infile <- "bar.txt".

我看着 胡须.但它不提供内部文件编码的模板,只能通过字符串.我正在考虑Python的Jinja2的功能.

R中最好的方法是什么？

---

更新:

另一个例子ui.R:

# Example of ui.R
# Choices differs from analysis to analysis
# Hand coded 
# ---------------------------
choices_list <- list(
                "A. Rumef.XXX vs Salt"            = "Group_A.Rumef.XXX_vs_Salt.iv",
                "B. Bra.XXX vs Salt"              = "Group_B.Bra.XXX_vs_Salt.iv",
                "C. Salt.Rumef vs Bra"            = "Group_C.Salt.Rumef_vs_Bra.iv",
                "D. XXX.Rumef vs Bra"             = "Group_D.XXX.Rumef_vs_Bra.iv"
                                                 )
selected_choices <- "Group_A.Rumef.XXX_vs_Salt.iv"
analysis_name <- "Cool Analysis"
fc_slider_threshold <- 0.8

# Do more things with those variables.

的内容choices_list,selected_choices,analysis_name,fc_slider_threshold将被供给到被包括在新生成的mycool_app.

Answer 1

不确定我是否正确理解你需要什么,但这段代码似乎正在做你想要的

genAppStr <- function(appname, infile) {
  dir.create(appname)
  dir.create(paste0(appname, "/www"))
  file.create(paste0(appname, "/", c("server.R", "ui.R")))
  writeLines(paste0("infile <- '", infile, "'"), paste0(appname, "/server.R"))
}

genAppStr("mycool_app", "bar.txt")

或者您想将bar.txt的内容插入server.R？

关于更新的问题:

genAppStr1 <- function(appname, infile, pars) {
  dir.create(appname)
  dir.create(paste0(appname, "/www"))
  file.create(paste0(appname, "/", c("server.R", "ui.R")))
  infilec <- readLines(infile)
  glued <- sapply(infilec, function(x) with(pars, glue(x)), USE.NAMES = FALSE)
  writeLines(as.character(glued), paste0(appname, "/server.R"))
}

用法:

library(glue)

ch <- c("A. Rumef.XXX vs Salt"            = "Group_A.Rumef.XXX_vs_Salt.iv",
  "B. Bra.XXX vs Salt"              = "Group_B.Bra.XXX_vs_Salt.iv",
  "C. Salt.Rumef vs Bra"            = "Group_C.Salt.Rumef_vs_Bra.iv",
  "D. XXX.Rumef vs Bra"             = "Group_D.XXX.Rumef_vs_Bra.iv")

options(useFancyQuotes = FALSE)

vsQuote <- Vectorize(sQuote, USE.NAMES = FALSE)

makeChoiceList <- function(ch) {
  nms <- vsQuote(names(ch))
  chs <- vsQuote(ch)
  chnm <- paste(nms, chs, sep = " = ")
  paste0('list(', paste(chnm, collapse = ","), ')')
}

genAppStr1(
  "mycool_app", "infile.txt", 
  pars = list(
    par1 = makeChoiceList(ch),
    par2 = sQuote("Group_A.Rumef.XXX_vs_Salt.iv"),
    par3 = sQuote("Cool Analysis"),
    par4 = 0.8
  )
)

和内容infile.txt是

choices_list <- {par1}
selected_choices <- {par2}
analysis_name <- {par3}
fc_slider_threshold <- {par4}