R/originize_current_project.R

In origin: Explicitly Qualifying Namespaces by Automatically Adding 'pkg::' to Functions

#' Originize all files in the current R Project
#'
#' @param path defualts to the project root path
#' @template pkgs
#' @param recursive see \link[base]{list.files}
#' @param exclude_files see \link[base]{list.files}
#' @template overwrite
#' @template ask_before_applying_changes
#' @template check_conflicts
#' @template check_base_conflicts
#' @template add_base_packages
#' @template excluded_functions
#' @template verbose
#' @template use_markers
#'
#' @return No return value, called for side effects
#' @noRd
originize_current_project <-
  function(path = ".",
           pkgs = getOption("origin.pkgs", .packages()),
           recursive = TRUE,
           exclude_files = NULL,
           overwrite = getOption("origin.overwrite"),
           ask_before_applying_changes =
             getOption("origin.ask_before_applying_changes"),
           check_conflicts = getOption("origin.check_conflicts"),
           check_base_conflicts = getOption("origin.check_base_conflicts"),
           add_base_packages = getOption("origin.add_base_packages"),
           excluded_functions = getOption("origin.excluded_functions"),
           verbose = getOption("origin.verbose"),
           use_markers = getOption("origin.use_markers_for_logging")) {

    originize_dir(path = path,
                  pkgs = pkgs,
                  recursive = recursive,
                  exclude_files = exclude_files,
                  overwrite = overwrite,
                  ask_before_applying_changes = ask_before_applying_changes,
                  check_conflicts = check_conflicts,
                  check_base_conflicts = check_base_conflicts,
                  add_base_packages = add_base_packages,
                  excluded_functions = excluded_functions,
                  verbose = verbose,
                  use_markers = use_markers)

    return(invisible(NULL))

  }