string <- "function(data, x = !!rlang::sym(\"Time1\"), y = !!rlang::sym(\"YVAR\")), values = c(\"a\", \"b\"))"
cat(gsub('!!rlang::sym\\("([^"]+)"\\)', "\\1", string))
c3RyaW5nIDwtICJmdW5jdGlvbihkYXRhLCB4ID0gISFybGFuZzo6c3ltKFwiVGltZTFcIiksIHkgPSAhIXJsYW5nOjpzeW0oXCJZVkFSXCIpKSwgdmFsdWVzID0gYyhcImFcIiwgXCJiXCIpKSIKY2F0KGdzdWIoJyEhcmxhbmc6OnN5bVxcKCIoW14iXSspIlxcKScsICJcXDEiLCBzdHJpbmcpKQ==