R/general.R

In tarakc02/pinboardr:

path <- function(endpoint, verb) paste("v1", endpoint, verb, sep = "/")

build_url <- function(endpoint, verb, ..., auth_token) {
    query <- list(...)

    if (is.null(auth_token)) auth_token <- pinboard_token()
    query <- c(
        auth_token = auth_token,
        format = "json",
        query
    )

    structure(
        list(
            scheme = "https",
            hostname = "api.pinboard.in",
            path = path(endpoint, verb),
            query = query),
        class = "url"
    )
}


process <- function(response) {
    httr::stop_for_status(response)
    response_text <- httr::content(
        response, as = "text",
        type = "text/plain; charset=UTF-8")

    # will these end up being used for anything?
    #hdrs <- httr::headers(response)

    jsonlite::fromJSON(
        response_text,
        simplifyVector = TRUE,
        simplifyDataFrame = TRUE,
        simplifyMatrix = TRUE)
}