tests/testthat/p_parameters/parameters_program.R

In ARS-toscana/CreateConceptSetDatasets: Create conceptset datasets

diroutput <- "g_output"
dirinput <- "i_input"
extension <- c(".csv")

###################################################################
# CREATE FOLDERS
###################################################################

suppressWarnings(if (!file.exists(diroutput)){
  setwd(file.path(diroutput))
})