Whitelist check

Description

After a user logs in, check to see if they are on a whitelist

Usage

whitelist(user_info, whitelist = NULL)

Arguments

Value

TRUE if on whitelist or no whitelist, FALSE if not

Examples

## Not run: 
options(googleAuthR.scopes.selected = 
   c("https://www.googleapis.com/auth/userinfo.email",
     "https://www.googleapis.com/auth/userinfo.profile"))
                                        
googleAuthR::gar_auth()

## default is user logged in
user <- get_user_info()

the_list <- whitelist(user, c("your@email.com", 
                              "another@email.com", 
                              "yet@anotheremail.com"))

if(the_list){
  message("You are on the list.")
} else {
  message("If you're not on the list, you're not getting in.")
}




## End(Not run)