tidyverse / dbplyr

Database (DBI) backend for dplyr
https://dbplyr.tidyverse.org
Other
474 stars 173 forks source link

Automate global variables defintition #1463

Open hadley opened 7 months ago

hadley commented 7 months ago
hadley commented 7 months ago

Something like this:

env <- pkgload::load_all()$env
objs <- as.list(env)
funs <- Filter(is.function, objs)

globals <- lapply(funs, codetools::findGlobals)

known <- c(
  names(pkgload::imports_env("dbplyr")),
  names(pkgload::ns_env("dbplyr")),
  names(pkgload::pkg_env("base"))
)
all_globals <- setdiff(unique(unlist(all_globals)), known)

all_globals <- all_globals[all_globals == toupper(all_globals)]

dput(sort(all_globals))