R/api-key.R

In mkearney/newsAPI: Wrapper for newsAPIorg

.NEWSAPI_KEY <- function() {
  Sys.getenv("NEWSAPI_KEY")
}

.makeurl <- function(query = NULL, ..., version = "v1") {
  stopifnot(is.atomic(version), is.atomic(query))
  rurl <- paste0("https://newsapi.org/", version, "/", query)
  params <- c(...)
  if (all(
    length(params) > 0L,
    identical(length(names(params)), length(params)))
  ) {
    params <- paste(names(params), params, sep = "=")
    params <- paste(params, collapse = "&")
    rurl <- paste(rurl, params, sep = "?")
  }
  rurl
}