places we use `$message` in r-lib packages

gistfile1.txt

callr/README.md:    #> $message
installgithub.app/install-github.R:  msg$message
installgithub.app/install-github.R:  if (methods::is(response, "error") || !is.null(response$message)) {
remotes/install-github.R:    error_details <- json$parse(rawToChar(res$content))$message
remotes/install-github.R:           response$message)
remotes/install-github.R:    if (methods::is(response, "error") || !is.null(response$message)) {
remotes/install-github.R:        response$message)
gh/R/gh_response.R:    paste0("Message: ", res$message)
callr/R/utils.R:  exp <- tryCatch(parse(text = "1+"), error = function(e) e$message)
callr/R/result.R:    err[[2]]$message <- err[[2]]$message %||% "interrupt"
callr/docs/index.html:#&gt; $message
callr/R/r-session.R:          rs__handle_condition(msg$message)
progress/man/progress_bar.Rd:\code{progress_bar$message()} prints a message above the progress bar.
progress/R/progress.R:#' \code{progress_bar$message()} prints a message above the progress bar.
pkgbuild/R/has_src.R:      e$message <- paste(path, "is not a valid package archive file,",
pkgbuild/R/has_src.R:                         e$message)
desc/R/description.R:    error = function(e) stop("Cannot read ", file, ": ", e$message)
httr/vignettes/api-packages.Rmd:        parsed$message,
httr/vignettes/api-packages.Rmd:        parsed$message,
httr/R/envvar.R:    stop("Failed to read ", path, " with error:\n", e$message, call. = FALSE)
httr/R/envvar.R:    stop("Failed to write ", path, " with error:\n", e$message, call. = FALSE)
rlang/R/cnd-message.R:  cnd$message
rlang/R/cnd-abort.R:#'     warn(err$message) # Demote the error to a warning
rlang/R/cnd-abort.R:  fallback$message <- paste_line(
rlang/R/cnd-entrace.R:    abort(cnd$message %||% "", error = cnd, trace = trace)
rlang/R/cnd-entrace.R:      msg <- cnd$message
rlang/R/cnd-error.R:  x$message
rlang/man/abort.Rd:    warn(err$message) # Demote the error to a warning
vctrs/R/conditions.R:  if (is_string(c$message) && nzchar(c$message)) {
vctrs/R/conditions.R:    return(c$message)
async/R/synchronise.R:    "<async error: ", x$message, "\n",
async/R/timeout.R:#'   error = function(e) paste("Other error:", e$message)
lifecycle/R/warning.R:  message <- x$message
async/man/async_timeout.Rd:  error = function(e) paste("Other error:", e$message)
zeallot/R/operator.R:      stop("invalid `%<-%` left-hand side, ", e$message, call. = FALSE)
zeallot/R/operator.R:      stop("invalid `%<-%` right-hand side, ", e$message, call. = FALSE)
zeallot/R/operator.R:      stop("invalid `%->%` right-hand side, ", e$message, call. = FALSE)
zeallot/R/operator.R:      stop("invalid `%->%` left-hand side, ", e$message, call. = FALSE)
cli/R/internals.R:    bar$message(msg, set_width = FALSE)
gmailr/R/draft.R:  class(res$message) <- c("gmail_message", "list")
gmailr/R/draft.R:  class(res$message) <- c("gmail_thread", "list")
gmailr/R/gmailr.R:gm_body.gmail_draft <- function(x, ...){ gm_body.gmail_message(x$message, ...) }
gmailr/R/gmailr.R:  unlist(lapply(x, function(page) { vapply(page$drafts, function(x){ x$message[[what]] }, character(1)) }))
gmailr/R/gmailr.R:gm_to.gmail_draft <- function(x, ...){ gm_to.gmail_message(x$message, ...) }
gmailr/R/gmailr.R:gm_cc.gmail_draft <- function(x, ...){ gm_from.gmail_message(x$message, ...) }
gmailr/R/gmailr.R:gm_bcc.gmail_draft <- function(x, ...){ gm_from.gmail_message(x$message, ...) }
gmailr/R/gmailr.R:gm_date.gmail_draft <- function(x, ...){ gm_date.gmail_message(x$message, ...) }
gmailr/R/gmailr.R:gm_subject.gmail_draft <- function(x, ...){ gm_subject.gmail_message(x$message, ...) }
gmailr/R/gmailr.R:  print(x$message, ...)
gmailr/R/gmailr.R:        message = paste0("Gmail API error: ", status_code(response), "\n  ", result$error$message, "\n")),
gmailr/R/message.R:  gm_attachments.gmail_message(x$message)
gargle/R/token-fetch.R:        cat_line("Warning: ", e$message)
gargle/R/token-fetch.R:        cat_line("Error: ", e$message)
gargle/R/response_process.R:      httr::http_status(resp)$message,
gargle/R/response_process.R:        glue("  * {error$message}")
gargle/R/response_process.R:        httr::http_status(resp)$message,
gargle/R/credentials_gce.R:      stop(paste0("Error fetching GCE metadata: ", attr(response, "condition")$message))
gargle/R/credentials_gce.R:      stop(paste0("Error fetching GCE metadata: ", httr::http_status(response)$message))
evaluate/R/replay.r:  message("Warning message:\n", x$message)
evaluate/R/replay.r:  message(sub("\n$", "", x$message))
evaluate/R/replay.r:    message("Error: ", x$message)
evaluate/R/replay.r:    message("Error in ", call, ": ", x$message)
evaluate/R/eval.r:    output_handler$message(m)
remotes/R/install-github.R:         response$message)
remotes/R/install-github.R:  if (methods::is(response, "error") || !is.null(response$message)) {
remotes/R/install-github.R:      response$message)
testthat/R/expect-vector.R:      expect(FALSE, e$message)
testthat/R/expect-equality.R:    sprintf("%s not equal to %s.\n%s", act$lab, exp$lab, comp$message),
testthat/R/expect-equality.R:    sprintf("%s not equivalent to %s.\n%s", act$lab, exp$lab, comp$message),
testthat/R/expect-equality.R:      msg <- compare$message
testthat/R/reporter-rstudio.R:      first_line <- strsplit(result$message, "\n")[[1]][1]
remotes/R/github.R:  error_details <- json$parse(rawToChar(res$content))$message
testthat/R/reporter-junit.R:        paste0(strsplit(x$message, split = "\n")[[1]][1], src_loc(x$srcref))
testthat/R/try-again.R:          if (identical(e$message, "restarting interrupted promise evaluation")) {
testthat/R/compare.R:  cat(x$message)
testthat/R/expect-that.R:      failure_message = paste0("NOT(", expt$message, ")"),
testthat/R/expect-self-test.R:      exp$message
testthat/R/expect-self-test.R:    expect_match(exp$message, message, ...)
testthat/R/expect-self-test.R:    cat(exp$message, "\n", sep = "")
remotes/inst/install-github.R:    error_details <- json$parse(rawToChar(res$content))$message
remotes/inst/install-github.R:           response$message)
remotes/inst/install-github.R:    if (methods::is(response, "error") || !is.null(response$message)) {
remotes/inst/install-github.R:        response$message)
testthat/R/expect-known.R:      encodeString(path, quote = "'"), comp$message
testthat/R/expect-known.R:        act$lab, encodeString(file, quote = "'"), comp$message
testthat/R/expectation.R:    x$message
testthat/R/expectation.R:    exp$message,
testthat/R/expectation.R:  error <- x$message
testthat/R/expectation.R:  expectation("warning", x$message, srcref)
testthat/R/expectation.R:  expectation("skip", x$message, srcref)
testthat/R/reporter-check.R:    colourise(header, "skip"), src_loc(x$srcref), " - ", x$message
vdiffr/R/testthat-reporter.R:             * message: { self$failure$message }
styler/R/parse.R:    if (has_crlf_as_first_line_sep(tried_parsing$message, text)) {
styler/R/parse.R:        "\nThe parsing error was:\n", tried_parsing$message
styler/R/parse.R:      abort(tried_parsing$message)
styler/R/parse.R:    warn(tried_parsing$message)
styler/R/addins.R:        new_style, "\" is not valid: ", e$message
styler/R/addins.R:        abort(paste0(preamble_for_unsaved, " The error was \n", e$message))
styler/R/addins.R:        abort(e$message)
styler/R/io.R:    rlang::abort(out$message)
styler/R/io.R:      missing_EOF_line_break = grepl("incomplete", out$message)
roxygen2/vignettes/extending.Rmd:      msg <- paste0("[", tag$file, ":", tag$line, "] ", tag$val$message)
roxygen2/R/tag-parser.R:      roxy_tag_warning(x, "code failed to parse.\n", e$message)
roxygen2/R/rd-raw.R:    roxy_tag_warning(tag, "failed with error:\n", e$message)
roxygen2/revdep/problems.md:    12: evaluate(code, envir = env, new_device = FALSE, keep_warning = !isFALSE(options$warning),     keep_message = !isFALSE(options$message), stop_on_error = if (options$error &&         options$include) 0L else 2L, output_handler = knit_handlers(options$render,         options))
roxygen2/revdep/problems.md:    13: in_dir(input_dir(), evaluate(code, envir = env, new_device = FALSE,     keep_warning = !isFALSE(options$warning), keep_message = !isFALSE(options$message),     stop_on_error = if (options$error && options$include) 0L else 2L,     output_handler = knit_handlers(options$render, options)))
pkgdown/R/replay-html.r:  message <- paste0("Warning: ", x$message)
pkgdown/R/replay-html.r:  message <- gsub("\n$", "", x$message)
pkgdown/R/replay-html.r:    message <- paste0("Error: ", x$message)
pkgdown/R/replay-html.r:    message <- paste0("Error in ", call, ": ", x$message)
pkgdepends/R/type-github.R:      nzchar(obj$message) && grepl("Bad credentials", obj$message)) {
covr/R/coveralls.R:    stop("Failed to upload coverage data. Reply by Coveralls: ", content$message)
liteq/R/messages.R:  make_message(msg$msg$id, msg$msg$title, msg$msg$message, msg$db,
liteq/R/messages.R:  make_message(msg$msg$id, msg$msg$title, msg$msg$message, msg$db,
liteq/R/messages.R:  msg_bytes <- nchar(x$message, type = "bytes")
devtools/R/release.R:    message("Sending failed with error: ", e$message)
devtools/R/github.R:        parsed$message, " (", httr::status_code(req), ")\n",
processx/R/aaassertthat.R:      structure(FALSE, msg = e$message)
processx/R/run.R:    paste0(c$message, exit, ", see stdout + stderr above")
processx/R/run.R:    paste0(c$message, exit, last_stderr_lines(c$stderr, std))
liteq/inst/README.md:msg$message
liteq/inst/README.Rmd:msg$message
cliapp/R/internals.R:    bar$message(msg, set_width = FALSE)
pkgload/R/load-dll.r:      warn(paste0("Failed to load at least one DLL: ", e$message))
credentials/vignettes/intro.Rmd:                        cat(e$message)
credentials/R/onattach.R:    packageStartupMessage(e$message)
credentials/R/ssh-keys.R:    message(e$message)
callr/tests/testthat/test-r-session-messages.R:  expect_equal(cond$message, "hi")
callr/docs/articles/Task-queue-with-callr.html:<a class="sourceLine" id="cb20-5" data-line-number="5"><span class="co">#&gt; $message</span></a>
pkgcache/R/metadata-cache.R:        err$message <- msg_wrap(
pkgcache/R/async-http.R:      err$message <- "All URLs failed"
pkgcache/R/aaa-async.R:    "<async error: ", x$message, "\n",
pkgcache/R/aaa-async.R:#'   error = function(e) paste("Other error:", e$message)
progress/tests/testthat/test-progress.R:        pb$message(as.character(i))
rlang/tests/testthat/test-quasiquotation.R:  expect_match(quo$message, "must be called with an argument")
rlang/tests/testthat/test-quasiquotation.R:  expect_match(quo$message, "must be called with an argument")
rlang/tests/testthat/helper-cnd.R:    expect_match(object$message, regex, class, info = info, label = label)
rlang/tests/testthat/helper-cnd.R:  cnds$error <- cnds$error$message
rlang/tests/testthat/test-lifecycle.R:  expect_true(grepl("once per session", wrn$message))
rlang/tests/testthat/test-lifecycle.R:  expect_false(grepl("once per session", wrn$message))
rlang/tests/testthat/test-cnd-abort.R:  expect_identical(err$message, message)
vctrs/tests/testthat/helper-expectations.R:  expect_true(grepl(paste0("for `", x_arg, "`"), err$message, fixed = TRUE))
vctrs/tests/testthat/helper-expectations.R:  expect_true(grepl(paste0("and `", y_arg, "`"), err$message, fixed = TRUE))
vctrs/tests/testthat/helper-output.R:    cat(paste0("Error: ", err$message, "\n"))
async/tests/testthat/test-when-all.R:        expect_match(reason$message, "foo")
async/tests/testthat/test-call-function.R:    grepl("R session crashed with exit code", err$message) ||
async/tests/testthat/test-call-function.R:    grepl("R session closed the process connection", err$message))
async/tests/testthat/test-call-function.R:    grepl("R session crashed with exit code", err$message) ||
async/tests/testthat/test-call-function.R:    grepl("R session closed the process connection", err$message))
async/tests/testthat/test-call-function.R:  expect_match(res[[4]]$message, "nope")
async/tests/testthat/test-errors.R:      catch(error = ~ expect_match(.$message, "ohno!"))
async/tests/testthat/test-errors.R:      catch(error = ~ expect_match(.$message, "ohno!"))$
async/tests/testthat/test-retry.R:      catch(error = function(e) expect_match(e$message, "error"))
lifecycle/tests/testthat/helper-lifecycle.R:  cat(catch_cnd(expr, classes = "error")$message, "\n\n")
lifecycle/tests/testthat/test-warning.R:  expect_match(wrns[[1]]$message, "`recorded()`", fixed = TRUE)
lifecycle/tests/testthat/test-lifecycle.R:  expect_true(grepl("once per session", wrn$message))
lifecycle/tests/testthat/test-lifecycle.R:  expect_false(grepl("once per session", wrn$message))
cli/inst/scripts/up.R:        e <- if (grepl("timed out", err$message)) "timed out" else "error"
testthat/tests/testthat/test-compare.R:  lines1 <- strsplit(compare(x, y)$message, "\n")[[1]]
testthat/tests/testthat/test-compare.R:  lines2 <- strsplit(compare(x, y, max_diffs = 99)$message, "\n")[[1]]
testthat/tests/testthat/test-verify-output.R:      paste("Dispatched!", cnd$message)
testthat/tests/testthat/test-expectation.R:  expect_equal(e$message, "I failed")
testthat/tests/testthat/test-expect-match.R:  error <- tryCatch(expect_match("f() test", "f() test"), expectation = function(e) e$message)
testthat/tests/testthat/test-expect-match.R:  expect_match(err$message, 'is empty')
testthat/tests/testthat/test-expect-match.R:  expect_match(err$message, "does not match")
testthat/tests/testthat/test-compare-character.R:  expect_match(compare("a", 1L)$message, "character is not integer")
testthat/tests/testthat/test-compare-character.R:  expect_match(compare("a", letters)$message, "1 is not 26")
testthat/tests/testthat/test-compare-character.R:  expect_match(compare(c1, c2)$message, "character is not mycharacter")
testthat/tests/testthat/test-compare-character.R:  expect_match(compare(x1, x2)$message, "names for current")
testthat/tests/testthat/test-compare-character.R:  expect_match(compare(x2, x3)$message, "Names: 1 string mismatch")
testthat/tests/testthat/test-compare-character.R:  expect_match(compare(x1, x4)$message, "target is NULL")
testthat/tests/testthat/test-compare-character.R:  expect_match(compare(x4, x5)$message, "Names: 1 string mismatch")
testthat/tests/testthat/test-compare-character.R:  expect_equal(comp$message, "2/2 mismatches\nx[1]: \"a\"\ny[1]: \"A\"")
testthat/tests/testthat/test-expect-setequal.R:  expect_match(cnd$message, "...")
testthat/tests/testthat/test-compare-numeric.R:  expect_match(compare(1, "a")$message, "double is not character")
testthat/tests/testthat/test-compare-numeric.R:  expect_match(compare(1, c(1, 2))$message, "1 is not 2")
testthat/tests/testthat/test-compare-numeric.R:  expect_match(compare(1L, f1)$message, "integer is not factor")
testthat/tests/testthat/test-compare-numeric.R:  expect_match(compare(1L, f2)$message, "integer is not ordered/factor")
testthat/tests/testthat/test-compare-numeric.R:  expect_match(compare(x1, x2)$message, "names for current")
testthat/tests/testthat/test-compare-numeric.R:  expect_match(compare(x2, x3)$message, "Names: 1 string mismatch")
testthat/tests/testthat/test-compare-numeric.R:  expect_match(compare(x1, x4)$message, "target is NULL")
testthat/tests/testthat/test-compare-numeric.R:  expect_match(compare(x4, x5)$message, "Names: 1 string mismatch")
testthat/tests/testthat/test-compare-numeric.R:  expect_equal(compare(x1, x2, check.attributes = FALSE)$message, "Equal")
testthat/tests/testthat/test-compare-numeric.R:  expect_equal(compare(x1, x3, check.attributes = FALSE)$message, "Equal")
testthat/tests/testthat/test-compare-numeric.R:  expect_equal(compare(x2, x3, check.attributes = FALSE)$message, "Equal")
testthat/tests/testthat/test-compare-time.R:  expect_match(compare(Sys.time(), 1)$message, "POSIXct/POSIXt is not numeric")
testthat/tests/testthat/test-compare-time.R:  expect_match(compare(x1, x2)$message, "1 is not 2")
testthat/tests/testthat/test-compare-time.R:  expect_match(compare(t1, t2)$message, '"tzone": 1 string mismatch')
testthat/tests/testthat/test-skip.R:  expect_length(cnd$message, 1)
conflicted/tests/testthat/test-disambiguate.R:      cat(c1$message)
conflicted/tests/testthat/test-disambiguate.R:      cat(c2$message)
conflicted/tests/testthat/test-disambiguate.R:      cat(c3$message)
gargle/tests/testthat/test-response-process.R:  expect_known_output(print(err$message), find_known_message(file))
gargle/tests/testthat/test-response-process.R:  expect_known_output(print(err$message), find_known_message(file))
gargle/tests/testthat/test-response-process.R:  expect_known_output(print(err$message), find_known_message(file))
gargle/tests/testthat/test-response-process.R:  expect_known_output(print(err$message), find_known_message(file))
gargle/tests/testthat/test-response-process.R:  expect_known_output(print(err$message), find_known_message(file))
vdiffr/tests/testthat/test-new.R:  msg <- map_chr(new_results, function(result) result$message)
vdiffr/tests/testthat/test-expectations.R:  expect_match(notcran_result$message, "Figures don't match: myplot.svg\n")
vdiffr/tests/testthat/test-expectations.R:  expect_match(failed_result$message, "Figures don't match: myplot.svg\n")
vdiffr/tests/testthat/test-expectations.R:  expect_match(skipped_result$message, "Skipping on CRAN")
vdiffr/tests/testthat/test-expectations.R:  expect_match(result$message, "The vdiffr engine is too old")
roxygen2/tests/testthat/test-rd-r6.R:      roxy_warnings <<- c(roxy_warnings, w$message)
pkgdepends/tests/testthat/test-github-tools.R:  expect_match(err$message, "GitHub HTTP error", fixed = TRUE)
pkgdepends/tests/testthat/test-github-tools.R:  expect_match(err$parent$message, "Not Found (HTTP 404)", fixed = TRUE)
later/tests/testthat/test-run_now.R:  expect_true(grepl("oopsie", error_obj$message))
oldie/tests/testthat/helper-conditions.R:    expect_match(object$message, regex, ..., info = info, label = label)
covr/tests/testthat/test-coveralls.R:      expect_equal(git$head$message, jsonlite::unbox("f")),
covr/tests/testthat/test-coveralls.R:      expect_equal(json$git$head$message, "f")
liteq/tests/testthat/test-messages.R:    expect_equal(msg$message, text)
liteq/tests/testthat/test-messages.R:    expect_equal(msg$message, paste0("MSG-", i))
liteq/tests/testthat/test-messages.R:    expect_equal(msg$message, text)
liteq/tests/testthat/test-messages.R:    expect_equal(msg$message, text)
liteq/tests/testthat/test-crashes.R:    expect_equal(msg$message, text)
liteq/tests/testthat/test-crashes.R:    expect_equal(msg$message, "MSG1")
liteq/tests/testthat/test-crashes.R:    expect_equal(msg2$message, "MSG2")
liteq/tests/testthat/test-crashes.R:    expect_equal(msg$message, text)
liteq/tests/testthat/test-crashes.R:    expect_equal(msg$message, text)
processx/tests/testthat/test-err.R:  expect_identical(c$message, "foobar")
processx/tests/testthat/test-err.R:  expect_identical(c$message, "foobar")
liteq/inst/examples/queue-scraper.R:    out <- scrape_hackernews(msg$message)
liteq/inst/examples/queue-scraper.R:    message <- fromJSON(msg$message)
cliapp/inst/scripts/up.R:        e <- if (grepl("timed out", err$message)) "timed out" else "error"
pkgcache/tests/async/test-when-all.R:        expect_match(reason$message, "foo")
pkgcache/tests/async/test-call-function.R:    grepl("R session crashed with exit code", err$message) ||
pkgcache/tests/async/test-call-function.R:    grepl("R session closed the process connection", err$message))
pkgcache/tests/async/test-call-function.R:    grepl("R session crashed with exit code", err$message) ||
pkgcache/tests/async/test-call-function.R:    grepl("R session closed the process connection", err$message))
pkgcache/tests/async/test-call-function.R:  expect_match(res[[4]]$message, "nope")
pkgcache/tests/async/test-errors.R:      catch(error = ~ expect_match(.$message, "ohno!"))
pkgcache/tests/async/test-errors.R:      catch(error = ~ expect_match(.$message, "ohno!"))$
pkgcache/tests/async/test-retry.R:      catch(error = function(e) expect_match(e$message, "error"))
cli/inst/examples/apps/up.R:        e <- if (grepl("timed out", err$message)) "timed out" else "error"