R/error_email.R

In SERTwitter/ser: Data Science Tools for SER

.email_to <- new.env(parent = emptyenv())

#' @export
#' @rdname errors
on_error_email_to <- function(recipient) {
  .email_to$email <- recipient
  invisible(recipient)
}

#' @export
#' @rdname errors
email_to <- function() {
  .email_to$email
}

#' @export
#' @rdname errors
gmail_id <- function() {
  Sys.getenv("GMAIL_ID")
}

#' @export
#' @rdname errors
gmail_secret <- function() {
  Sys.getenv("GMAIL_SECRET")
}
#' @export
#' @rdname errors
gmail_email <- function() {
  gmail("ser.twitteracct")
}


build_error_html <- function(.error) {
  paste("<h2>Error in SER code:", Sys.time(), "</h2> \n", .error)
}

#' Email errors in code
#'
#' `email_on_error()` will email on error. Use it with `action_safely()` to wrap
#' a function using the emailer. Set the email recipient globally with
#' `on_error_email_to()` and retrieve it with `email_to()`.
#'
#' @param .e the error message
#' @param recipient an email address.
#' @param .f a function to wrap in the email error catching function
#'
#' @return a character vector containing the error email
#' @export
#'
#' @rdname errors
email_on_error <- function(.e, recipient = email_to(), .msg = NULL) {
  authorize_gmailr()

  email_msg <- build_error_html(.e)

  gmailr::mime() %>%
    gmailr::to(recipient) %>%
    gmailr::from("ser.twitteracct@gmail.com") %>%
    gmailr::subject(paste("Error in SER code:", Sys.time(), .msg)) %>%
    gmailr::html_body(email_msg) %>%
    gmailr::send_message()

  .e
}

#' @export
#' @rdname errors
action_safely <- function(.f, .msg = NULL) {
  function(...) {
    tryCatch(
      .f(...),
      error = purrr::partial(email_on_error, .msg = .msg)
    )
  }
}