0_script_template.R

##############################################
###########  ###########
##############################################
# load packages -----
rm(list = ls())
library(tidyverse)


# I/O & paras -----
if(interactive()){
  args <- scan(
    text = '

    ',
    what = 'character'
  )
} else{
  args <- commandArgs(trailingOnly = TRUE)
}

## output -----


# read files -----


# organize data -----


# print out key message or write out -----