R/help_error.R

In Sorenson-Impact/sorensonimpact: Sorenson Impact Internal R Package

#' Search Stack Overflow for help on errors
#' @description Search the web for help on errors
#' @importFrom magrittr "%>%"
#' @export

help_error_so <- function(error = geterrmessage(), add_error_term = T) {
  error_plus <- stringr::str_replace_all(geterrmessage(), pattern = " ", replacement = "+")
  if(add_error_term) error_plus <- paste("error", error_plus, sep = "+")
  url <-paste0("https://stackoverflow.com/search?q=%5Br%5D+", error_plus)
  browseURL(url)
}

#' Search Google for help on errors
#' @description Search the web for help on errors
#' @importFrom magrittr "%>%"
#' @export
help_error_google <-  function(error = geterrmessage(), add_error_term = T) {
  error_plus <- stringr::str_replace_all(geterrmessage(), pattern = " ", replacement = "+")
  if(add_error_term) error_plus <- paste("error", error_plus, sep = "+")
  url <- paste0("https://www.google.com/search?q=R+", error_plus)
  browseURL(url)
}