ref_client <- ga4gh_client("http://1kgenomes.ga4gh.org", api_location = "")
## Not run:
# library(magrittr)
# ## Find a dataset to search in
# datasets <- ref_client %>% search_datasets() %>% content()
# d_id <- datasets$datasets[[1]]$id
#
# ## Find a phenotype association set to search in
# phenotype_association_sets <- ref_client %>%
# search_phenotype_association_sets(d_id) %>% content()
# pas_id <- phenotype_association_sets$phenotypeAssociationSets[[1]]$id
#
# ## Search for pheotypes in the phenotype association set
# phenotypes <- ref_client %>% search_phenotypes(pas_id) %>% content()
# phenotypes$phenotypes[[1]]
#
# ## End(Not run)
Run the code above in your browser using DataLab