R/print.checkr_result.R

Defines functions print.checkr_result

Documented in print.checkr_result

#' Print a checkr_result
#'
#' @rdname print.checkr_result
#' @param x a checkr_result object to be printed
#' @param ... additional args (not used here)
#'
#'
#' @export
print.checkr_result <- function(x, ...) {
  has_code <- "code" %in% names(x)
  if (x$message == "")
    oneline <- paste0("checkr result: *", x$action, "*\n")
  else
    oneline <- paste0("checkr result *", x$action, "* with message:\n", x$message)

  cat(oneline)
  if (has_code) {
    cat("\nCODE:\n")
    print(x$code)
  }
}
dtkaplan/checkr2 documentation built on May 17, 2019, 4:01 p.m.