# NOT RUN {
syn <- synapse$Synapse()
syn$login()
user <- syn$getUserProfile("dcctravistest")
check_team_membership(teams = "3396691", user = user, syn = syn)
check_team_membership(
teams = c("3397398", "3377637"),
user = user,
syn = syn
)
# }
Run the code above in your browser using DataLab