R/create_url.R

In data-atelier/newsExtractoR: Extracting information from newsapi.org

#' Helper function to create URLs

#' @param endpoint String article sources
#' @param apikey String default api key
#' @param par List of parameters

#' @return string url

#' @export
create_url <- function(endpoint, par, apikey = newsapi_key()) {

  plan <- match.arg(toupper(endpoint), c("TOP-HEADLINES", "SOURCES", "EVERYTHING"))

  base_url <- paste0("https://newsapi.org/", "v2", "/", tolower(plan), "?", "apiKey=",
    apikey, "&")


  p <- paste(names(par), par, sep = "=")

  p <- paste(p, collapse = "&")

  finel_url <- paste(base_url, p, sep = "")

  return(finel_url)

}