inst/examples/delete_users_in_all_databases.R

In bedatadriven/activityinfo-R: R interface to ActivityInfo.org, an information management software for humanitarian and development operations

## This script helps clean up old users from all databases
##
## To use this script, save a list of email addresses to a text file called "to_delete.txt" with ONLY an email address
## on each line. For example,
##
## a@exmaple.com
## b@example.com

library(activityinfo)
# activityInfoLogin(userEmail = "u@example.com", "XYZAPITOKEN")

databases <- getDatabases()

emailsToDelete <- tolower(readLines("to_delete.txt"))

for(database in databases) {
  users <- getDatabaseUsers(database$databaseId)
  
  for(user in users) {
    if(tolower(user$email) %in% emailsToDelete) {
      cat(sprintf("Deleting %s...\n", user$email))
      # deleteDatabaseUser(database$databaseId, user$userId)
    }
  }
}