R/check_form_works.R

In data-steve/useResearch: Provides User Research Capabilities to the R Community at the Functional Level

#' Check If The Form Is Sending Correctly
#'
#' Check the HTTP status message is below 400, meaning that the transmission worked.
#'
#' @param r response from HTTP POST request
#' @export
#' @examples
#' \dontrun{
#' check_form_works( .ping("R is Cool!") )
#' # "All good."
#' }

check_form_works <- function(r) {
  if (httr::status_code(r) < 400) {
    message("All good.")
  } else {
    message("There seems to be an error message: ",httr::message_for_status(r$status))
  }
}