R/utils.R

In PESData/awardFindR: awardFindR

# Internal, return basic text hash
# *NOT* cryptographic!! this is a toy hasher!
.text_hash <- function(string) {
  hash <- as.integer(charToRaw(string))
  sum(hash)
}

# internal substring from right function
.substr_right <- function(x, n) substr(x, nchar(x)-n+1, nchar(x))

# Make an HTTP request with httr
request <- function(url, method, verbose=FALSE, payload=NULL) {
  if (method=="post" & !is.null(payload)) {
    if (verbose==TRUE) message(paste("POST", url, "... "), appendLF=FALSE)
    response <- httr::POST(url, body=payload, encode="json",
                           config = httr::config(connecttimeout = 300))
  } else if (method=="get") {
    if (verbose==TRUE) message(paste("GET", url, "... "), appendLF=FALSE)
    response <- httr::GET(url, config = httr::config(connecttimeout = 300))
  } else stop("Invalid request")

  if (verbose==TRUE) {
    httr::message_for_status(response)
    message() # Because the message above doesn't end w/ a newline
  }
  httr::warn_for_status(response)

  suppressMessages(httr::content(response))
}