R/functions.R
is_site_admin.Rd
is user an admin?
is_site_admin(u)
username
boolean to indicate is user is in admin group
# check if default user is admin yy <- is_site_admin(u='admin')