library(repfun)
df <- data.frame(tt_ac01=c('1','2','3'),
tt_ac02=c('a','b','b'),
tt_ac03=c('10','11','12'))
chk <- repfun::ru_expvarlist(df, varsin="tt_ac:")
print(chk)
Run the code above in your browser using DataLab