Log what symbols are hit in your data with tidy_eval

logged-eval-tidy.r

library(rlang)

logged_eval_tidy <-
  function(expr, data, env = caller_env()){
    
    dm <- as_data_mask(data)
    ae <- as_data_mask(list())

    nms <- character(0)
    te <- environment()
      
    report_sym <- function(nm){
      get_sym <- function(){
        assign("nms"
             , c(get("nms", envir = te), nm)
             , envir = te)
        
        get(nm, envir = dm)
      }
      makeActiveBinding(nm, get_sym, ae)
    }

    lapply(names(data), report_sym)

    list(val = eval_tidy(expr, ae, env)
       , nms = nms)
  }