Skip to contents

Vignette Build Datetime

message(paste0('Datetime: ',Sys.Date(),':',Sys.time()))
#> Datetime: 2026-01-21:2026-01-21 14:54:19.335206

Add Decode Variables to the Incoming List

add_decode <- repfun::ru_groupbyvars(c("TRTCD", "TRTGRP", "ATOXGRN", "AEDECOD", "AEBODSYS"), 
                             c("TRTCD", "TRTGRP", "ATOXGRN", "ATOXGR"), TRUE)
print(add_decode)
#> [1] "TRTCD"    "TRTGRP"   "ATOXGRN"  "ATOXGR"   "AEDECOD"  "AEBODSYS"

Remove Decode Variables from the Incoming List

rem_decode <- repfun::ru_groupbyvars(c("TRTCD", "TRTGRP", "ATOXGRN", "AEDECOD", "AEBODSYS"), 
                             c("TRTCD", "TRTGRP", "ATOXGRN", "ATOXGR"), FALSE)
print(rem_decode)
#> [1] "TRTCD"    "ATOXGRN"  "AEDECOD"  "AEBODSYS"