message(paste0('Datetime: ',Sys.Date(),':',Sys.time())) #> Datetime: 2026-01-21:2026-01-21 09:14:45
library(repfun)
df <- data.frame(tt_ac01=c('1','2','3'), tt_ac02=c('a','b','b'), tt_ac03=c('10','11','12')) repfun::ru_expvarlist(df, varsin="tt_ac:") #> [1] "tt_ac01" "tt_ac02" "tt_ac03"
df <- data.frame(tt_ac01=c('1','2','3'), tt_ac03=c('10','11','12')) repfun::ru_expvarlist(df, varsin="tt_ac:") #> [1] "tt_ac01" "tt_ac03"
df <- data.frame(tt_ac01=c('1','2','3'), tt_ac03=c('10','11','12')) repfun::ru_expvarlist(df, varsin="tt_ac01-tt_ac10") #> [1] "tt_ac01" "tt_ac03"