ref_client <- ga4gh_client("http://1kgenomes.ga4gh.org", api_location = "")
## Not run:
# library(magrittr)
# ## Find a reference set to search in
# reference_sets <- ref_client %>% search_reference_sets() %>% content()
# rs_id <- reference_sets$referenceSets[[1]]$id
#
# ## Find a reference to search in
# references <- ref_client %>% search_references(rs_id) %>% content()
# ref_id <- references$references[[1]]$id
#
# ## Find a string of bases from 10000 -> 11000
# reference_bases <- ref_client %>%
# search_reference_bases(ref_id, start = 10000, end = 11000) %>% content()
# reference_bases
# ## End(Not run)
Run the code above in your browser using DataLab