R/auth_fns.R

In yogat3ch/maleta: maleta (suitcase): for 'carrying' app dependencies

#' @title Authorize Dropbox
#'
#' @param db_token \code{(character)} path to Dropbox token saved as RDS
#' @export

db_auth <- function(db_token = file.path(pkgload::pkg_path(), "inst","vault","db_token.rds")) {
  if (!file.exists(db_token) && interactive()) {
    token <- rdrop2::drop_auth(key = Sys.getenv("DROPBOX_KEY"), secret = Sys.getenv("DROPBOX_SECRET"), cache = FALSE)
    UU::mkpath(dirname(db_token))
    saveRDS(token, db_token)
  } else if (file.exists(db_token)) {
    rdrop2::drop_auth(rdstoken = db_token)
  } else
    UU::gbort("Dropbox authentication credentials missing from {.path {db_token}} and session is non-interactive. Please see ?{cli::col_cyan('rdrop2::drop_auth')}")
}