R/token.R

In ShixiangWang/yq: 'YuQue' 'API'

#' Return the local user's YuQue Personal Access Token (PAT)
#'
#' You can read more about PATs here:
#' <https://www.yuque.com/yuque/developer/api#785a3731>
#' and you can access your PATs here (if logged in to YuQue):
#' <https://www.yuque.com/settings>.
#'
#' Currently it consults the `YUQUE_TOKEN`
#' environment variables, in this order.
#'
#' @return A string, with the token, or a zero length string scalar,
#' if no token is available.
#'
#' @export

yq_token <- function() {
  if (file.exists(.yuque_config_path)) {
    token = jsonlite::read_json(.yuque_config_path, simplifyVector = TRUE)$token
  } else {
      token = ""
  }

  if (token != "") {
    return(token)
  } else {
    Sys.getenv("YUQUE_TOKEN", unset = "")
  }
}

yq_auth <- function(token) {
  if (isTRUE(token != "")) {
    c("X-Auth-Token" = token)
  } else {
    character()
  }
}

get_auth = function(need_token = FALSE) {
    token = yq_token()
    if (need_token) {
      if (token == "") {
        stop("This feature needs token. \nPlease run ?yq_whoami for more.",
             call. = FALSE)
      }
    }
    if (file.exists(.yuque_config_path)) {
      login = jsonlite::read_json(.yuque_config_path, simplifyVector = TRUE)$login
    } else {
       stop("This feature needs login name. \nPlease run ?yq_config or ?yq_whoami for more.")
    }
    return(list(login = login, token = token))
}