ref_client <- ga4gh_client("http://1kgenomes.ga4gh.org", api_location = "")
## Not run:
# ## 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[[2]]$id
#
# ## Search for variant annotation sets in the variant set
# variant_annotation_sets <- ref_client %>%
# search_variant_annotation_sets(vs_id) %>% content()
# variant_annotation_sets
# ## End(Not run)
Run the code above in your browser using DataLab