R/utils-keys.R

Defines functions check_key check_bls_key check_census_key

check_census_key <- function(key) {
    check_key(key, "CENSUS_API_KEY")
}

check_bls_key <- function(key) {
    check_key(key, "BLS_KEY")
}

check_key <- function(key, var) {
    if (is.null(key)) {
        key <- Sys.getenv(var)
    }
    if (nchar(key) == 0) {
        return(FALSE)
    } else {
        return(key)
    }
}
CT-Data-Haven/cwi documentation built on April 13, 2025, 1:42 p.m.