convert two more warnings to use cli

DESCRIPTION

@@ -37,7 +37,6 @@ Imports:
  xmlparsedata (>= 1.0.5)
 Suggests:
  bookdown,
- httr (>= 1.2.1),
  jsonlite,
  patrick (>= 0.2.0),
  rlang,

R/cache.R

@@ -53,11 +53,10 @@ load_cache <- function(file, path = NULL) {
  invokeRestart("muffleWarning")
  },
  error = function(e) {
- warning(
- "Could not load cache file '", file, "':\n",
- conditionMessage(e),
- call. = FALSE
- )
+ cli_warn(c(
+ x = "Could not load cache file {.file {file}}:\n",
+ i = conditionMessage(e)
+ ))
  }
  )
  } # else nothing to do for source file that has no cache

R/with.R

@@ -181,11 +181,11 @@ all_linters <- function(..., packages = "lintr") {
 linters_with_defaults <- function(..., defaults = default_linters) {
  dots <- list(...)
  if (missing(defaults) && "default" %in% names(dots)) {
- warning(
- "'default' is not an argument to linters_with_defaults(). Did you mean 'defaults'? ",
- "This warning will be removed when with_defaults() is fully deprecated.",
- call. = FALSE
- )
+ cli_warn(c(
+ x = "{.arg default} is not an argument to {.fun linters_with_defaults}.",
+ i = "Did you mean {.arg defaults}?",
+ i = "This warning will be removed when {.fun with_defaults} is fully deprecated."
+ ))
  defaults <- dots$default
  nms <- names2(dots)
  missing_index <- !nzchar(nms, keepNA = TRUE)

tests/testthat/test-with.R

@@ -94,7 +94,7 @@ test_that("linters_with_defaults(default = .) is supported with a deprecation wa
  {
  linters <- linters_with_defaults(default = list(), whitespace_linter())
  },
- "'default'"
+ "`default` is not an argument"
  )
  expect_named(linters, "whitespace_linter")