misc/user-management/user-management.R

In ucsd-dsm/hbcd-tlfb: HBCD TLFB shiny app

library(rsconnect)
library(tidyverse)

param <- list(
  account = "ucsd-cmig",
  app_dev = "hbcd-tlfb-dev"
)

table_users <- readr::read_delim("./misc/user-management/shinyappsio_users.csv", 
                                 delim = ",", col_types = c("c", "c", "c", "l"))

# Development version ----

# List people not yet invited
dev_users <- showUsers(account = param$account, appName = param$app_dev)
dev_invit <- showInvited(account = param$account, appName = param$app_dev)

users_to_invite <- setdiff(
  table_users |> filter(access_dev) |> pull(email),
  c(dev_users$email, dev_invit$email)
)

print(users_to_invite)

# Send invites
for (email in users_to_invite) {
  addAuthorizedUser(
    email = email, 
    account = param$account, 
    appName = param$app_dev
  )
}