R/apiUtils.R

In polidata: Political Data Interface in R

#.apiJson <- system.file("extdata", "api.json", package="polidata")


#' Print information about the APIs accessible through polidata
#'
#' @export apiInfo
apiInfo <- jsonlite::fromJSON(system.file("extdata", "api.json", package="polidata"))


apiSources <- sapply(ls(apiInfo), Capitalize)


GetAPIKey <- function(apiSource) {
    apiKey <- getOption(sprintf("%sAPIKey", apiSource))
    if(is.null(apiKey)) apiKey <- ""
    return(apiKey)
}


MethodInAPI <- function(apiSource, method) {
    .methods <- eval(parse(text=sprintf("apiInfo$%s$methods", apiSource)))[[1]]
    if(!(is.element(method, .methods))) {
        stop("Please check the method name.")
    }
}


SetAPIKey <- function(apiSource) {
    apiKey = readline(sprintf("Enter %s API key: ", apiSource))
    eval(parse(text=sprintf("options(%sAPIKey='%s')", apiSource, apiKey)))
}


#' Show API Keys
#'
#' @export ShowAPIKeys
ShowAPIKeys <- function() {
    for(apiSource in apiSources) {
        cat(sprintf("%s API key: \"%s\"\n", apiSource, GetAPIKey(apiSource)))
    }
}


PromptAPIKey <- function(apiSource, apiKey) {
    prompt <- sprintf("Is %s API key \"%s\" (y/n)? ", apiSource, apiKey)
    reply <- readline(prompt)
    if(reply=="n") {
        SetAPIKey(apiSource)
    }
    return(reply)
}