R/tomtom.R

In datawookie/tomtom: TomTom API

#' @import dplyr
#' @import purrr
#' @import tidyr
#' @import httr
#' @importFrom stats setNames
#' @importFrom utils URLencode
#'
NULL

PKG_VERSION <- utils::packageDescription('tomtom')$Version

#' Set API key
#'
#' @param api_key TomTom API key.
#'
#' @export
#'
#' @examples
#' set_api_key("USf9S3AINkT4MhQZfz66ogYa3ZEGwPzZ")
set_api_key <- function(api_key) {
  assign("api_key", api_key, envir = cache)
}

get_api_key <- function() {
  get("api_key", api_key, envir = cache)
}