### Running: /home/kyoshida/miniconda3/lib/R/bin/exec/R --slave --no-restore --file=02_generate_sas_macro_calls.R > > cat(" + ### + ### Prepare environment + ################################################################################\n") ### ### Prepare environment ################################################################################ > > ## Record start time > start_time <- Sys.time() > cat("### Started ", as.character(start_time), "\n") ### Started 2020-04-01 23:48:01 > > > ## Load packages > library(tidyverse) Registered S3 methods overwritten by 'ggplot2': method from [.quosures rlang c.quosures rlang print.quosures rlang Registered S3 method overwritten by 'rvest': method from read_xml.response xml2 ── Attaching packages ─────────────────────────────────────────────────────────── tidyverse 1.2.1 ── ✔ ggplot2 3.1.1 ✔ purrr 0.3.3 ✔ tibble 2.1.1 ✔ dplyr 0.8.0.1 ✔ tidyr 0.8.3 ✔ stringr 1.4.0 ✔ readr 1.3.1 ✔ forcats 0.4.0 ── Conflicts ────────────────────────────────────────────────────────────── tidyverse_conflicts() ── ✖ dplyr::filter() masks stats::filter() ✖ dplyr::lag() masks stats::lag() > > > cat(" + ### + ### Generate all relevant patterns of %mediation() calls + ################################################################################\n") ### ### Generate all relevant patterns of %mediation() calls ################################################################################ > > source("./02_generate_sas_macro_calls_helpers.R") > > macro_args <- generate_sas_macro_args() > > macro_args %>% + print(n = Inf) # A tibble: 80 x 19 mreg yreg interaction casecontrol ncvar avar mvar yvar eventvar cens cvar output c_cond 1 line… line… false false 0 trt bili alk_… "" cens "" full "" 2 line… line… false false 3 trt bili alk_… "" cens age … full 50 1 2 3 line… line… true false 0 trt bili alk_… "" cens "" full "" 4 line… line… true false 3 trt bili alk_… "" cens age … full 50 1 2 5 line… logi… false false 0 trt bili spid… "" cens "" full "" 6 line… logi… false false 3 trt bili spid… "" cens age … full 50 1 2 7 line… logi… false true 0 trt bili spid… "" cens "" full "" 8 line… logi… false true 3 trt bili spid… "" cens age … full 50 1 2 9 line… logi… true false 0 trt bili spid… "" cens "" full "" 10 line… logi… true false 3 trt bili spid… "" cens age … full 50 1 2 11 line… logi… true true 0 trt bili spid… "" cens "" full "" 12 line… logi… true true 3 trt bili spid… "" cens age … full 50 1 2 13 line… logl… false false 0 trt bili spid… "" cens "" full "" 14 line… logl… false false 3 trt bili spid… "" cens age … full 50 1 2 15 line… logl… false true 0 trt bili spid… "" cens "" full "" 16 line… logl… false true 3 trt bili spid… "" cens age … full 50 1 2 17 line… logl… true false 0 trt bili spid… "" cens "" full "" 18 line… logl… true false 3 trt bili spid… "" cens age … full 50 1 2 19 line… logl… true true 0 trt bili spid… "" cens "" full "" 20 line… logl… true true 3 trt bili spid… "" cens age … full 50 1 2 21 line… negb… false false 0 trt bili plat… "" cens "" full "" 22 line… negb… false false 3 trt bili plat… "" cens age … full 50 1 2 23 line… negb… true false 0 trt bili plat… "" cens "" full "" 24 line… negb… true false 3 trt bili plat… "" cens age … full 50 1 2 25 line… pois… false false 0 trt bili plat… "" cens "" full "" 26 line… pois… false false 3 trt bili plat… "" cens age … full 50 1 2 27 line… pois… true false 0 trt bili plat… "" cens "" full "" 28 line… pois… true false 3 trt bili plat… "" cens age … full 50 1 2 29 line… surv… false false 0 trt bili time status cens "" full "" 30 line… surv… false false 3 trt bili time status cens age … full 50 1 2 31 line… surv… true false 0 trt bili time status cens "" full "" 32 line… surv… true false 3 trt bili time status cens age … full 50 1 2 33 line… surv… false false 0 trt bili time status cens "" full "" 34 line… surv… false false 3 trt bili time status cens age … full 50 1 2 35 line… surv… true false 0 trt bili time status cens "" full "" 36 line… surv… true false 3 trt bili time status cens age … full 50 1 2 37 line… surv… false false 0 trt bili time status cens "" full "" 38 line… surv… false false 3 trt bili time status cens age … full 50 1 2 39 line… surv… true false 0 trt bili time status cens "" full "" 40 line… surv… true false 3 trt bili time status cens age … full 50 1 2 41 logi… line… false false 0 trt bili… alk_… "" cens "" full "" 42 logi… line… false false 3 trt bili… alk_… "" cens age … full 50 1 2 43 logi… line… true false 0 trt bili… alk_… "" cens "" full "" 44 logi… line… true false 3 trt bili… alk_… "" cens age … full 50 1 2 45 logi… logi… false false 0 trt bili… spid… "" cens "" full "" 46 logi… logi… false false 3 trt bili… spid… "" cens age … full 50 1 2 47 logi… logi… false true 0 trt bili… spid… "" cens "" full "" 48 logi… logi… false true 3 trt bili… spid… "" cens age … full 50 1 2 49 logi… logi… true false 0 trt bili… spid… "" cens "" full "" 50 logi… logi… true false 3 trt bili… spid… "" cens age … full 50 1 2 51 logi… logi… true true 0 trt bili… spid… "" cens "" full "" 52 logi… logi… true true 3 trt bili… spid… "" cens age … full 50 1 2 53 logi… logl… false false 0 trt bili… spid… "" cens "" full "" 54 logi… logl… false false 3 trt bili… spid… "" cens age … full 50 1 2 55 logi… logl… false true 0 trt bili… spid… "" cens "" full "" 56 logi… logl… false true 3 trt bili… spid… "" cens age … full 50 1 2 57 logi… logl… true false 0 trt bili… spid… "" cens "" full "" 58 logi… logl… true false 3 trt bili… spid… "" cens age … full 50 1 2 59 logi… logl… true true 0 trt bili… spid… "" cens "" full "" 60 logi… logl… true true 3 trt bili… spid… "" cens age … full 50 1 2 61 logi… negb… false false 0 trt bili… plat… "" cens "" full "" 62 logi… negb… false false 3 trt bili… plat… "" cens age … full 50 1 2 63 logi… negb… true false 0 trt bili… plat… "" cens "" full "" 64 logi… negb… true false 3 trt bili… plat… "" cens age … full 50 1 2 65 logi… pois… false false 0 trt bili… plat… "" cens "" full "" 66 logi… pois… false false 3 trt bili… plat… "" cens age … full 50 1 2 67 logi… pois… true false 0 trt bili… plat… "" cens "" full "" 68 logi… pois… true false 3 trt bili… plat… "" cens age … full 50 1 2 69 logi… surv… false false 0 trt bili… time status cens "" full "" 70 logi… surv… false false 3 trt bili… time status cens age … full 50 1 2 71 logi… surv… true false 0 trt bili… time status cens "" full "" 72 logi… surv… true false 3 trt bili… time status cens age … full 50 1 2 73 logi… surv… false false 0 trt bili… time status cens "" full "" 74 logi… surv… false false 3 trt bili… time status cens age … full 50 1 2 75 logi… surv… true false 0 trt bili… time status cens "" full "" 76 logi… surv… true false 3 trt bili… time status cens age … full 50 1 2 77 logi… surv… false false 0 trt bili… time status cens "" full "" 78 logi… surv… false false 3 trt bili… time status cens age … full 50 1 2 79 logi… surv… true false 0 trt bili… time status cens "" full "" 80 logi… surv… true false 3 trt bili… time status cens age … full 50 1 2 # … with 6 more variables: a0 , a1 , m_cde , macro_call , sas_script , # filename > > macro_args %>% + select(filename) %>% + print(n = Inf) # A tibble: 80 x 1 filename 1 sas-mreg_linear_yreg_linear_int_f_caco_f_ncvar0.sas 2 sas-mreg_linear_yreg_linear_int_f_caco_f_ncvar3.sas 3 sas-mreg_linear_yreg_linear_int_t_caco_f_ncvar0.sas 4 sas-mreg_linear_yreg_linear_int_t_caco_f_ncvar3.sas 5 sas-mreg_linear_yreg_logistic_int_f_caco_f_ncvar0.sas 6 sas-mreg_linear_yreg_logistic_int_f_caco_f_ncvar3.sas 7 sas-mreg_linear_yreg_logistic_int_f_caco_t_ncvar0.sas 8 sas-mreg_linear_yreg_logistic_int_f_caco_t_ncvar3.sas 9 sas-mreg_linear_yreg_logistic_int_t_caco_f_ncvar0.sas 10 sas-mreg_linear_yreg_logistic_int_t_caco_f_ncvar3.sas 11 sas-mreg_linear_yreg_logistic_int_t_caco_t_ncvar0.sas 12 sas-mreg_linear_yreg_logistic_int_t_caco_t_ncvar3.sas 13 sas-mreg_linear_yreg_loglinear_int_f_caco_f_ncvar0.sas 14 sas-mreg_linear_yreg_loglinear_int_f_caco_f_ncvar3.sas 15 sas-mreg_linear_yreg_loglinear_int_f_caco_t_ncvar0.sas 16 sas-mreg_linear_yreg_loglinear_int_f_caco_t_ncvar3.sas 17 sas-mreg_linear_yreg_loglinear_int_t_caco_f_ncvar0.sas 18 sas-mreg_linear_yreg_loglinear_int_t_caco_f_ncvar3.sas 19 sas-mreg_linear_yreg_loglinear_int_t_caco_t_ncvar0.sas 20 sas-mreg_linear_yreg_loglinear_int_t_caco_t_ncvar3.sas 21 sas-mreg_linear_yreg_negbin_int_f_caco_f_ncvar0.sas 22 sas-mreg_linear_yreg_negbin_int_f_caco_f_ncvar3.sas 23 sas-mreg_linear_yreg_negbin_int_t_caco_f_ncvar0.sas 24 sas-mreg_linear_yreg_negbin_int_t_caco_f_ncvar3.sas 25 sas-mreg_linear_yreg_poisson_int_f_caco_f_ncvar0.sas 26 sas-mreg_linear_yreg_poisson_int_f_caco_f_ncvar3.sas 27 sas-mreg_linear_yreg_poisson_int_t_caco_f_ncvar0.sas 28 sas-mreg_linear_yreg_poisson_int_t_caco_f_ncvar3.sas 29 sas-mreg_linear_yreg_survAFT_exp_int_f_caco_f_ncvar0.sas 30 sas-mreg_linear_yreg_survAFT_exp_int_f_caco_f_ncvar3.sas 31 sas-mreg_linear_yreg_survAFT_exp_int_t_caco_f_ncvar0.sas 32 sas-mreg_linear_yreg_survAFT_exp_int_t_caco_f_ncvar3.sas 33 sas-mreg_linear_yreg_survAFT_weibull_int_f_caco_f_ncvar0.sas 34 sas-mreg_linear_yreg_survAFT_weibull_int_f_caco_f_ncvar3.sas 35 sas-mreg_linear_yreg_survAFT_weibull_int_t_caco_f_ncvar0.sas 36 sas-mreg_linear_yreg_survAFT_weibull_int_t_caco_f_ncvar3.sas 37 sas-mreg_linear_yreg_survCox_int_f_caco_f_ncvar0.sas 38 sas-mreg_linear_yreg_survCox_int_f_caco_f_ncvar3.sas 39 sas-mreg_linear_yreg_survCox_int_t_caco_f_ncvar0.sas 40 sas-mreg_linear_yreg_survCox_int_t_caco_f_ncvar3.sas 41 sas-mreg_logistic_yreg_linear_int_f_caco_f_ncvar0.sas 42 sas-mreg_logistic_yreg_linear_int_f_caco_f_ncvar3.sas 43 sas-mreg_logistic_yreg_linear_int_t_caco_f_ncvar0.sas 44 sas-mreg_logistic_yreg_linear_int_t_caco_f_ncvar3.sas 45 sas-mreg_logistic_yreg_logistic_int_f_caco_f_ncvar0.sas 46 sas-mreg_logistic_yreg_logistic_int_f_caco_f_ncvar3.sas 47 sas-mreg_logistic_yreg_logistic_int_f_caco_t_ncvar0.sas 48 sas-mreg_logistic_yreg_logistic_int_f_caco_t_ncvar3.sas 49 sas-mreg_logistic_yreg_logistic_int_t_caco_f_ncvar0.sas 50 sas-mreg_logistic_yreg_logistic_int_t_caco_f_ncvar3.sas 51 sas-mreg_logistic_yreg_logistic_int_t_caco_t_ncvar0.sas 52 sas-mreg_logistic_yreg_logistic_int_t_caco_t_ncvar3.sas 53 sas-mreg_logistic_yreg_loglinear_int_f_caco_f_ncvar0.sas 54 sas-mreg_logistic_yreg_loglinear_int_f_caco_f_ncvar3.sas 55 sas-mreg_logistic_yreg_loglinear_int_f_caco_t_ncvar0.sas 56 sas-mreg_logistic_yreg_loglinear_int_f_caco_t_ncvar3.sas 57 sas-mreg_logistic_yreg_loglinear_int_t_caco_f_ncvar0.sas 58 sas-mreg_logistic_yreg_loglinear_int_t_caco_f_ncvar3.sas 59 sas-mreg_logistic_yreg_loglinear_int_t_caco_t_ncvar0.sas 60 sas-mreg_logistic_yreg_loglinear_int_t_caco_t_ncvar3.sas 61 sas-mreg_logistic_yreg_negbin_int_f_caco_f_ncvar0.sas 62 sas-mreg_logistic_yreg_negbin_int_f_caco_f_ncvar3.sas 63 sas-mreg_logistic_yreg_negbin_int_t_caco_f_ncvar0.sas 64 sas-mreg_logistic_yreg_negbin_int_t_caco_f_ncvar3.sas 65 sas-mreg_logistic_yreg_poisson_int_f_caco_f_ncvar0.sas 66 sas-mreg_logistic_yreg_poisson_int_f_caco_f_ncvar3.sas 67 sas-mreg_logistic_yreg_poisson_int_t_caco_f_ncvar0.sas 68 sas-mreg_logistic_yreg_poisson_int_t_caco_f_ncvar3.sas 69 sas-mreg_logistic_yreg_survAFT_exp_int_f_caco_f_ncvar0.sas 70 sas-mreg_logistic_yreg_survAFT_exp_int_f_caco_f_ncvar3.sas 71 sas-mreg_logistic_yreg_survAFT_exp_int_t_caco_f_ncvar0.sas 72 sas-mreg_logistic_yreg_survAFT_exp_int_t_caco_f_ncvar3.sas 73 sas-mreg_logistic_yreg_survAFT_weibull_int_f_caco_f_ncvar0.sas 74 sas-mreg_logistic_yreg_survAFT_weibull_int_f_caco_f_ncvar3.sas 75 sas-mreg_logistic_yreg_survAFT_weibull_int_t_caco_f_ncvar0.sas 76 sas-mreg_logistic_yreg_survAFT_weibull_int_t_caco_f_ncvar3.sas 77 sas-mreg_logistic_yreg_survCox_int_f_caco_f_ncvar0.sas 78 sas-mreg_logistic_yreg_survCox_int_f_caco_f_ncvar3.sas 79 sas-mreg_logistic_yreg_survCox_int_t_caco_f_ncvar0.sas 80 sas-mreg_logistic_yreg_survCox_int_t_caco_f_ncvar3.sas > > > cat(" + ### + ### Write to sas scripts + ################################################################################\n") ### ### Write to sas scripts ################################################################################ > > junk <- macro_args %>% + mutate(junk = map2(sas_script, filename, + function(sas_script, filename) { + write_lines(x = sas_script, path = filename) + })) > > > ################################################################################ > cat(" + ### + ### Record package versions etc + ################################################################################\n") ### ### Record package versions etc ################################################################################ > print(sessionInfo()) R version 3.6.1 (2019-07-05) Platform: x86_64-conda_cos6-linux-gnu (64-bit) Running under: Red Hat Enterprise Linux Server release 6.10 (Santiago) Matrix products: default BLAS/LAPACK: /home/kyoshida/miniconda3/lib/R/lib/libRblas.so locale: [1] LC_CTYPE=en_US.UTF-8 LC_NUMERIC=C LC_TIME=en_US.UTF-8 [4] LC_COLLATE=en_US.UTF-8 LC_MONETARY=en_US.UTF-8 LC_MESSAGES=en_US.UTF-8 [7] LC_PAPER=en_US.UTF-8 LC_NAME=C LC_ADDRESS=C [10] LC_TELEPHONE=C LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C attached base packages: [1] stats graphics grDevices utils datasets methods base other attached packages: [1] forcats_0.4.0 stringr_1.4.0 dplyr_0.8.0.1 purrr_0.3.3 readr_1.3.1 tidyr_0.8.3 [7] tibble_2.1.1 ggplot2_3.1.1 tidyverse_1.2.1 loaded via a namespace (and not attached): [1] Rcpp_1.0.1 pillar_1.3.1 compiler_3.6.1 cellranger_1.1.0 plyr_1.8.4 [6] tools_3.6.1 jsonlite_1.6 lubridate_1.7.4 gtable_0.3.0 nlme_3.1-139 [11] lattice_0.20-40 pkgconfig_2.0.2 rlang_0.4.5 cli_1.1.0 rstudioapi_0.10 [16] haven_2.1.0 withr_2.1.2 xml2_1.2.0 httr_1.4.0 generics_0.0.2 [21] hms_0.4.2 grid_3.6.1 tidyselect_0.2.5 glue_1.3.1 R6_2.4.0 [26] fansi_0.4.0 readxl_1.3.1 modelr_0.1.4 magrittr_1.5 backports_1.1.4 [31] scales_1.0.0 rvest_0.3.3 assertthat_0.2.1 colorspace_1.4-1 utf8_1.1.4 [36] stringi_1.4.3 lazyeval_0.2.2 munsell_0.5.0 broom_0.5.2 crayon_1.3.4 > ## Record execution time and multicore use > end_time <- Sys.time() > diff_time <- difftime(end_time, start_time, units = "auto") >