Encode and decode authentication tokens for googlesheets R package

gs_endecode.R

library(base64enc)

token2text <- function(token_obj, txt_file) {
    rds_path <- tempfile()
    saveRDS(object = token_obj,
            file   = rds_path)
    
    # return base64 string
    writeLines(base64encode(rds_path), txt_file)
}

text2token <- function(txt_file) {
    decoded_rds <- tempfile()
    
    base64decode(file   = txt_file,
                 output = decoded_rds)
    
    readRDS(decoded_rds)
}