Create a modal dialog if user is not in required team(s) or certified

Takes the output from check_team_membership() and check_certified_user(). If the user is not in the required teams or certified, creates a modal dialog indicating which teams they need to belong to and how to request access.

report_unsatisfied_requirements(membership, certified, syn)

Arguments

membership	Output from check_team_membership()
certified	Output from check_certified_user()
syn	Synapse client object

Value

If user is not certified or in the required teams, a modal dialog describing which requirements are not met.

Examples

if (FALSE) {
syn <- synapse$Synapse()
syn$login()
user <- syn$getUserProfile("dcctravistest")
membership <- check_team_membership(
  teams = "3396691",
  user = user,
  syn = syn
)
certified <- check_certified_user(user$ownerId, syn = syn)
report_unsatisfied_requirements(membership, certified, syn = syn)
}