R/project_id.R

In plduffy/keenr:

#' project_id
#'
#' project_id checks for your Keen.io project ID

project_id <- function(){
  keen_project_id <- Sys.getenv("keen_project_id")
  if (identical(keen_project_id, "")) {
    stop("Please set env var keen_project_id to your Keen.io project ID.",
         call. = FALSE)
  }
  keen_project_id
}