R/token_user.R

In ices-tools-prod/icesConnect: Provides User Tokens for Access to ICES Web Services

#' Return user for a token
#'
#' What user is this token for
#'
#' @param jwt a javascript web token got by running `ices_token()`
#'
#' @return string, user
#'
#' @examples
#' \dontrun{
#' token_user()
#' }
#'
#' @rdname decode_token
#'
#' @importFrom base64enc base64decode
#' @importFrom jsonlite parse_json
#'
#' @export
token_user <- function(jwt = ices_token()) {
  claims <- decode_token(jwt)
  claims$user
}