search

r-lib / devtools

Tools to make an R developer's life easier
https://devtools.r-lib.org
Other
2.37k stars 753 forks source link

Add undesirable function linter #2430

Closed hadley closed 2 years ago

hadley commented 2 years ago 
devtools_undesirable_functions <- function() {
  funs <- c(
    # Base messaging
    "message" = "use cli::cli_inform()", 
    "warning" = "use cli::cli_warn()", 
    "stop" = "use cli::cli_abort()",
    # rlang messaging
    "inform" = "use cli::cli_inform()", 
    "warn" = "use cli::cli_warn()", 
    "abort" = "use cli::cli_abort()",
    # older cli 
    "cli_alert_danger" = "use cli::cli_inform()", 
    "cli_alert_info" = "use cli::cli_inform()", 
    "cli_alert_success" = "use cli::cli_inform()", 
    "cli_alert_warning" = "use cli::cli_inform()"
  )

  lintr::undesirable_function_linter(
    fun = funs,
    symbol_is_undesirable = FALSE
  )
}