whitelist: Whitelist check

In nephantes/debrowser_bioconductor_release: Interactive Differential Expresion Analysis Browser

Description

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

Usage

whitelist(user_info, whitelist = NULL)

Arguments

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

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("[e-mail]", 
                              "[e-mail]", 
                              "[e-mail]"))

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)

nephantes/debrowser_bioconductor_release documentation built on May 29, 2019, 7:15 a.m.