## -----------------------------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  eval = FALSE
)

vcr::setup_knitr(prefix = "advanced-auth-")
meetupr:::mock_if_no_auth()
meetupr::local_meetupr_debug(FALSE)

## -----------------------------------------------------------------------------
# library(meetupr)

## -----------------------------------------------------------------------------
# # Check if credentials exist
# key_available("client_key")
# key_available("client_secret")
# 
# # Retrieve stored values (for debugging only - don't print secrets!)
# client_key <- meetupr_key_get("client_key")
# # Note: Never print client_secret in logs or console

## -----------------------------------------------------------------------------
# # Authenticate (will use stored credentials automatically)
# meetupr_auth()
# 
# # Get situation report
# meetupr_sitrep()

## -----------------------------------------------------------------------------
# # Sets a custom client name for this session
# Sys.setenv("MEETUPR_CLIENT_NAME" = "myApp")
# 
# # Authenticate with custom client name
# meetupr_sitrep()