R/read-key.R

In plduffy/keenr:

#' read_key
#'
#' read_key checks for your Keen.io read key

read_key <- function(){
  keen_read_key <- Sys.getenv("keen_read_key")
  if (identical(keen_read_key, "")) {
    stop("Please set env var keen_read_key to your Keen.io read key.",
         call. = FALSE)
  }
  keen_read_key
}