library(stringr)
x <- c("*-5mo+3d+4h+2m", "t-5mo+3d+4h+2m")
repl <- c('^\\*' = 'Sys.time()', '^t' = 'Sys.Date()', '(\\d+)mo' = '\\1*lubridate::months(1)', '(\\d+)d' = '\\1*lubridate::days(1)', '(\\d+)h' = '\\1*lubridate::hours(1)', '(\\d+)m' = '\\1*lubridate::minutes(1)')
stringr::str_replace_all(x, repl)
bGlicmFyeShzdHJpbmdyKQp4IDwtIGMoIiotNW1vKzNkKzRoKzJtIiwgInQtNW1vKzNkKzRoKzJtIikKcmVwbCA8LSBjKCdeXFwqJyA9ICdTeXMudGltZSgpJywgJ150JyA9ICdTeXMuRGF0ZSgpJywgJyhcXGQrKW1vJyA9ICdcXDEqbHVicmlkYXRlOjptb250aHMoMSknLCAnKFxcZCspZCcgPSAnXFwxKmx1YnJpZGF0ZTo6ZGF5cygxKScsICAnKFxcZCspaCcgPSAgJ1xcMSpsdWJyaWRhdGU6OmhvdXJzKDEpJywgJyhcXGQrKW0nID0gJ1xcMSpsdWJyaWRhdGU6Om1pbnV0ZXMoMSknKQpzdHJpbmdyOjpzdHJfcmVwbGFjZV9hbGwoeCwgcmVwbCk=