whitelist: Whitelist check
In MarkEdmondson1234/googleID: Authenticate users via the Google+ API

Description Usage Arguments Value Examples

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

1	whitelist(user_info, whitelist = NULL)

`user_info`	the object returned by get_user_info
`whitelist`	A character vector of emails on whitelist

TRUE if on whitelist or no whitelist, FALSE if not

## Not run: 
library(googleAuthR)
library(googleID)
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)