## ----width_control, echo = FALSE------------------------------------------------------------------
old_opt <- options(width = 100)

## ----eval = FALSE---------------------------------------------------------------------------------
# opt <- list(
#   prefix = "${task.ext.prefix}",
#   seed = 1
# )

## ----eval = FALSE---------------------------------------------------------------------------------
# process_end(
#   packages = list(
#     "r-stats" = "stats"
#   ),
#   task_name = "${task.process}"
# )

## ----eval = FALSE---------------------------------------------------------------------------------
# library(nfcore.utils)
# library(data.table)
# library(stringr)
# 
# ### INPUTS PARSING ###
# opt <- list(
#   map_file = "${map_file}",
#   chr = "${meta.chr}",
#   prefix = "${prefix}",
#   tolerance = NULL
# )
# 
# process_input(
#   opt = opt,
#   args = "${args}",
#   keys_to_nullify = c("prefix", "tolerance"),
#   expected_files = c("map_file"),
#   expected_double = c("tolerance"),
#   required_opts = c("map_file", "prefix")
# )
# 
# ### MAIN SCRIPT ###
# 
# ...
# 
# ### END of PROCESS ###
# process_end(
#   packages = list(
#     "r-data.table" = "data.table",
#     "r-stringr" = "stringr"
#   ),
#   task_name = "${task.process}",
#   versions_path = "versions.yml",
#   log_path = "R_sessionInfo.log"
# )

## -----------------------------------------------------------------------------
options(old_opt)
sessionInfo()