adlib_set_longterm_token <- function()

in R/auth.R [98:114]

• 17 lines of code
• 4 McCabe index (conditional complexity)

adlib_set_longterm_token <- function() {
  if (token_exists()) {
    if (menu(title = "A token is already saved. Get a new one?", choices = c("y", "n")) == 2) {
      return(invisible(FALSE))
    }
  }
  app_id <- secret_get(APP_ID)
  app_secret <- secret_get(APP_SECRET)
  message("Visit https://developers.facebook.com/tools/explorer/ to obtain a short-term access token.\nIt will be exchanged for a long-term access token that will be securely stored in your computer's credential store.")
  readline("Press <Enter>")
  short_term_token <- get_pass("Enter token")
  if (length(short_term_token) == 0) {
    stop("No short term token supplied.")
  }
  token <- get_long_term_access_token(app_secret, app_id, short_term_token)
  token_set(token)
}