Create Script for Parameters Assignment

Create Script for Parameters Assignment

Create Script for TLG Generation

Usage

script_args(x, dict = NULL)

# S4 method for chevron_tlg
script_args(x, dict = NULL)

script_funs(x, adam_db, args, details = FALSE)

# S4 method for chevron_tlg
script_funs(x, adam_db, args, details = FALSE)

Arguments

x

(chevron_tlg) input.

dict

(list) with the name and value of custom arguments.

adam_db

(string) the name of the dataset.

args

(string) the name of argument list.

details

(flag) whether to show the code of all function. By default, only the detail of the code of the prepossessing step is printed.

Examples

script_args(aet04)
#> [1] "\n# Arguments definition ----\n"    "adam_db <- stop(\"missing value\")"
#> [3] "arm_var <- \"ACTARM\""              "prune_0 <- TRUE"                   

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