R/functions.R

In jsng/AirtableR: R wrapper to Airtable API

#' Get Airtable API key if exists
#' otherwise set Airtable API key
#' @param force An optional length-one logical vector
#' @return A length-one character vecotr 

airtable_key <- function(force = FALSE) {
  env <- Sys.getenv("AIRTABLE_KEY")
  if (!identical(env, "") && !force) return(env)
  if (!interactive()) {
    stop("Please enter env var AIRTABLE_KEY", call. = FALSE)
  }

  message(
    "Couldn't find env var AIRTABLE_KEY. See ?airtable_key for more details."
  )

  message(
    "Please enter your KEY and press enter:"
  )

  key <- readline(": ")

  if (identical(key, "")) {
    stop("Airtable API key entry failed", call. = FALSE)
  }
  
  message(
    "Updating AIRTABLE_KEY env var to key"
  )

  Sys.setenv(AIRTABLE_KEY = key)

  key
}


#' Check request status
#' @param req A httr request object 

airtable_check <- function(req) {
  if (req$status_code < 400) {
    return(invisible())
  }

  print(httr::content(req))

  message <- 
    paste0(
      unname(
        airtable_parse(req)$error
      ), 
      ". "
    )

  stop(
    "HTTP failure: ", 
    req$status_code, 
    "\n",
    message,
    call. = FALSE
  )
}


#' Parse request
#' @param req A httr request object 

airtable_parse <- function(req) {
  text <- httr::content(req, as = "text")
  if (identical(text, "")) stop(
    "No output to parse",
    call. = FALSE
  )
  RJSONIO::fromJSON(text)
}