inst/templates/dot_R_template.R

In Rundmus/Useful2me-R_package: R function collection useful to me

# -----------------------------------------------------------------------------#
# {{{ title }}}
# -----------------------------------------------------------------------------#
# created  : {{{ date }}} by {{{ author }}}
# modified : 
# -----------------------------------------------------------------------------#
rm(list = ls())

library(dplyr)
# library(tidyverse)

# library(Useful2me) 
  # renv::install("Rundmus/Useful2me-R_package")  # when 'renv' used
  # remotes::install_github("Rundmus/Useful2me-R_package", upgrade= "never")

#----- File names --------------------------------------------------------------

fn <- list(
  i = list(                               #  input
  ),
  o = list(                               #  output
  )
)

#  Check all exists
stopifnot(all(file.exists(c('.', unlist(fn$i)))), 
          all(file.exists(dirname(c('.', unlist(fn$o))))))

#----- MAIN --------------------------------------------------------------------