Find all object in basic RStudio search path

findenvobjects.R

recursive_ls <- function(envir=NULL, use_names=FALSE) {
  # Base case
  if (identical(envir, emptyenv())) {
    return(list())
  }
  if (is.null(envir)) {
    envir <- parent.env(environment())
  }
  if (!use_names) {
    objs <- ls(envir)
  } else {
    objs <- names(envir)
  }
  envobjects <- recursive_ls(parent.env(envir), use_names)
  envobjects[[length(envobjects)+1]] <- objs
  names(envobjects)[length(envobjects)] <- environmentName(envir)
  return(envobjects)
}