fetch all namespaced calls from project

[moodymudskipper]

This is useful for project diagnostics, esp if we're trying to build a package from a messy project

Something like this :

get_project_namespaces <- function() {
  all_scripts <- list.files(
    here::here(), # start at the project root
    pattern = "\\.[rR]$", # all R files
    full.names = TRUE, # return absolute paths
    recursive = TRUE # check in subfolder
  )
  code <- sapply(all_scripts, parse)
  namespaces <- list()
  collect_namespaced_calls <- function(call) {
    if(!is.call(call) && !is.expression(call)) {
      return()
    }
    if(rlang::is_call(call, "::")) {
      namespaces <<- c(namespaces, call[[2]])
      return()
    }
    lapply(as.list(call), collect_namespaced_calls)
    invisible()
  }
  lapply(code, collect_namespaced_calls)
  sort(as.character(unique(namespaces)))
}
get_project_namespaces()

should be generalized to ::: and have a flexible dir to start on

[moodymudskipper]

Should fetch calls to library, require, requireNamespace etc too, we might return a list with :

• all package names (the most important one)
• all pkg::fun calls
• all library calls
• etc

We might return this list silently and propose a usethis::use_package call if we're in a package, or otherwise a call like the following which the user might paste at the top of their main script:

required_pkgs <- c("assertthat", "bag.epi.dboard.etl", "bag.epi.io", "bag.epi.shapes", 
"data.table", "dtplyr", "httr", "openxlsx", "padr", "plyr")
for (pkg in required_pkgs) {
  requireNamespace(pkg)
}

[moodymudskipper]

We could use the "Find in Files" pane here too