inst/example/simulacao.R

In jtrecenti/docfun: What the Package Does (One Line, Title Case)

#!/usr/bin/env Rscript
args <- commandArgs(trailingOnly = TRUE)

txt <- "ola mundo!\n"
if (length(args) > 1) {
  txt <- paste0(txt, readr::read_lines(args[2], n_max = 1), "\n")
}
cat(txt, file = args[1])
Sys.sleep(1000)