Create Script for TLG Generation

Create Script for TLG Generation

Usage

script_funs(x, adam_db, args, name = deparse(substitute(x)))

# S4 method for class 'chevron_tlg'
script_funs(x, adam_db, args, name = deparse(substitute(x)))

# S4 method for class 'chevron_simple'
script_funs(x, adam_db, args, name = deparse(substitute(x)))

Arguments

x

(chevron_tlg) input.

adam_db

(string) the name of the dataset.

args

(string) the name of argument list.

name

(string) name of the template.

Value

character that can be integrated into an executable script.

Examples

script_funs(aet04, adam_db = "syn_data", args = "args")
#>  [1] "# Edit Preprocessing Function."                                                         
#>  [2] "preprocess(aet04) <- "                                                                  
#>  [3] "function (adam_db, ...) "                                                               
#>  [4] "{"                                                                                      
#>  [5] "    atoxgr_lvls <- c(\"1\", \"2\", \"3\", \"4\", \"5\")"                                
#>  [6] "    adam_db$adae <- adam_db$adae %>% filter(.data$ANL01FL == "                          
#>  [7] "        \"Y\") %>% mutate(AEBODSYS = reformat(.data$AEBODSYS, nocoding), "              
#>  [8] "        AEDECOD = reformat(.data$AEDECOD, nocoding), ATOXGR = factor(.data$ATOXGR, "    
#>  [9] "            levels = atoxgr_lvls))"                                                     
#> [10] "    adam_db"                                                                            
#> [11] "}"                                                                                      
#> [12] ""                                                                                       
#> [13] "# Create TLG"                                                                           
#> [14] "tlg_output <- run(object = aet04, adam_db = syn_data, verbose = TRUE, user_args = args)"