R/getToken.R

In mathewroy/ynabr: ynabr - R for YNAB

#' Set personal access token
#' 
#' A function that asks the user to set their token
#' @name getToken
#' @keywords getToken
#' @export
#' @import dplyr
#' @examples
#' auth_token <- getToken()
getToken <- function() {
  
  print("Enter the personal access token associated with your YNAB account:")
  
  token <- readline(prompt = "Enter token: ") %>% as.character()
  
  if (!is.character(token)) {
    stop("Input an integer")
  }
  
  return(token)
}