R/addins.R

In jimhester/lintr: A 'Linter' for R Code

# nocov start
addin_lint <- function() {
  if (!requireNamespace("rstudioapi", quietly = TRUE)) {
    cli_abort("{.pkg rstudioapi} is required for add-ins.")
  }
  filename <- rstudioapi::getSourceEditorContext()
  if (filename$path == "") {
    cli_warn("Current source has no path. Please save before continuing.")
    return(flatten_lints(list()))
  }

  lint(filename$path)
}

addin_lint_package <- function() {
  if (!requireNamespace("rstudioapi", quietly = TRUE)) {
    cli_abort("{.pkg rstudioapi} is required for add-ins.")
  }
  project <- rstudioapi::getActiveProject()
  if (is.null(project)) {
    cli_inform("No project found, passing current directory.")
    project_path <- getwd()
  } else {
    project_path <- project
  }

  lint_package(project_path)
}
# nocov end