Replaces `!!rlang::sym("...")` with `.data$...`

sym-to-data.R

invisible(lapply(
  list.files(
    path = ".",
    pattern = "\\.(r|rmd|qmd)$",
    full.names = TRUE, 
    recursive = TRUE, 
    ignore.case = TRUE
  ),
  function(path) {
    pat <- "!!rlang::sym[(]\"([a-zA-z0-9_]+)\"[)]"
    x <- readLines(path)
    m <- grep(pat, x)
    
    if (!length(m)) {
      return()
    }
    
    x[m] <- gsub(pat, ".data$\\1", x[m])
    writeLines(x, path)
  }))