if (FALSE) { # interactive()
# Get a few cohorts by their symbol:
my_cohorts <- get_cohorts(c('23andMe', 'BioImage', 'Rotterdam-SI', 'SGWAS'),
progress_bar = FALSE)
#
# Subsetting by position
#
my_cohorts[c(1, 3)]
#
# Subsetting by cohort symbol (character)
#
my_cohorts[c('23andMe', 'SGWAS')]
}
Run the code above in your browser using DataLab