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

## ----setup--------------------------------------------------------------------
library(episomer)

## ----eval = FALSE-------------------------------------------------------------
# add_new_social_media(social_media = "new_media")

## ----eval = FALSE-------------------------------------------------------------
# temp$sm_alerts_bluesky <- conf$sm_alerts_bluesky
# temp$sm_activated_bluesky <- conf$sm_activated_bluesky

## ----eval = FALSE-------------------------------------------------------------
# temp$sm_alerts_new_media <- conf$sm_alerts_new_media
# temp$sm_activated_new_media <- conf$sm_activated_new_media

## ----eval = FALSE-------------------------------------------------------------
# ret$sm_alerts_bluesky <- TRUE
# ret$sm_activated_bluesky <- TRUE

## ----eval = FALSE-------------------------------------------------------------
# ret$sm_alerts_new_media <- TRUE
# ret$sm_activated_new_media <- TRUE

## ----eval = FALSE-------------------------------------------------------------
# conf$sm_alerts_bluesky <- temp$sm_alerts_bluesky
# conf$sm_activated_bluesky <- temp$sm_activated_bluesky

## ----eval = FALSE-------------------------------------------------------------
# conf$sm_alerts_new_media <- temp$sm_alerts_new_media
# conf$sm_activated_new_media <- temp$sm_activated_new_media

## ----eval = FALSE-------------------------------------------------------------
# for (v in c("bluesky_user", "bluesky_password")) {
#   if (is_secret_set(v)) {
#     conf$auth[[v]] <- get_secret(v)
#   }
# }

## ----eval = FALSE-------------------------------------------------------------
# shiny::textInput(
#   "bluesky_user",
#   label = NULL,
#   value = if (is_secret_set("bluesky_user")) {
#     get_secret("bluesky_user")
#   } else {
#     NULL
#   }
# )

## ----eval = FALSE-------------------------------------------------------------
# shiny::passwordInput(
#   "bluesky_password",
#   label = NULL,
#   value = if (is_secret_set("bluesky_password")) {
#     get_secret("bluesky_password")
#   } else {
#     NULL
#   }
# )

## ----eval = FALSE-------------------------------------------------------------
# sm_api_set_auth(
#   network = "new_media",
#   shiny_input_list = input
# )