R/internal_utils.R

In raymondben/peranapi: Perana Sports API

b64gunz <- function(x) {
    x <- base64enc::base64decode(x)
    if (length(x) < 6 || !identical(x[5:6], as.raw(c(31, 8*16+11))))
        stop("cannot read text")
    ## first four bytes are the buffer size
    rc <- rawConnection(x[seq_along(x)[-1:-4]])
    z <- gzcon(rc)
    on.exit(close(z))
    readLines(z, warn = FALSE)
}

`%eq%` <- function(x,y) x==y & !is.na(x) & !is.na(y)

pparse <- function(z) {
    temp <- sub("^[A-Z]+~", "", z)
    if (grepl("^\\(?null\\)?", temp, ignore.case = TRUE)) {
        NULL
    } else {
        jsonlite::fromJSON(temp)
    }
}

pparse_multi <- function(z) lapply(z, pparse)