R_Script_Gen.R

input.seq <- 1:10

for(i in 1:length(input.seq)){
  file.con <-file(paste0('script', input.seq[i], '.R'))
  writeLines(
    text = c("source('my.fun.R')",
             paste0('result', i, ' <- my.fun(x = ', i, ", y = 'character input')"),
             paste0("save(list = 'result", i, "', file = 'result", i, ".RData')")
           ),
    con = file.con
  )
 close(file.con)
}