design/randomization/render_templates.R

In bsaul/tafp: THN Foundation Taste Adaptation Study Pilot

for(i in 1:44){
  rid <- paste0("R", formatC(i, width = 3, flag ="0"))
  rmarkdown::render("design/randomization/randomization_templates.Rmd",
                    output_file = paste0('templates/', rid, '.pdf' ),
                    params = list(rid = rid))
}