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 variant set to search in
# variant_sets <- ref_client %>% search_variant_sets(d_id) %>% content()
# vs_id <- variant_sets$variantSets[[1]]$id
#
# ## Search for call sets in the variant set
# call_sets <- ref_client %>% search_call_sets(vs_id) %>% content()
# call_sets
#
# ## End(Not run)
Run the code above in your browser using DataLab