您最多选择25个主题
主题必须以字母或数字开头，可以包含连字符 (-)，并且长度不得超过35个字符
17 行
471 B
17 行
471 B
#' Convert a Base64 encoded string into an R object
|
|
#'
|
|
#' A simple wrapper around calls to `openssl::base64_decode()` and
|
|
#' `jsonlite::fromJSON()`.
|
|
#'
|
|
#' @md
|
|
#' @param x a string
|
|
#' @param flatten flatten JSON structures upon conversion?
|
|
#' @param ... passed on to `jsonlite::fromJSON()`
|
|
#' @export
|
|
json_fromb64 <- function(x, flatten=TRUE, ...) {
|
|
|
|
tmp <- openssl::base64_decode(x)
|
|
tmp <- readBin(tmp, "character")
|
|
jsonlite::fromJSON(tmp, flatten=flatten, ...)
|
|
|
|
}
|
|
|