R/dcvts_limesurvey_login.R

In maskegger/dcvts: Delhi-NCR Coronavirus Survey Package

#' DCVTS Limesurvey API authentication.
#' @description Simple function that runs the steps needed for DCVTS Limesurvey API authentication.
#' @importFrom limer get_session_key
#' @importFrom rstudioapi askForSecret
#' @export
#'
dcvts_limesurvey_login <- function() {
  # TODO Maybe make this a generic function later
  options(lime_api = "https://dcvts.limequery.com/admin/remotecontrol")
  options(lime_username = rstudioapi::askForSecret("Lime Survey Username"))
  options(lime_password = rstudioapi::askForSecret("Lime Survey Password"))

  # Do stuff with LimeSurvey API
  get_session_key()  # Log in
}