# Add-Remove-Decode-Variables

## Vignette Build Datetime

    message(paste0('Datetime: ',Sys.Date(),':',Sys.time()))
    #> Datetime: 2026-01-21:2026-01-21 09:13:51

    library(repfun)

## 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"