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 read group to search in
# read_group_sets <- ref_client %>% search_read_group_sets(d_id) %>% content()
# rg_id <- read_group_sets$readGroupSets[[1]]$readGroups[[1]]$id
#
# ## Find a reference_id to map reads (unmapped reads not supported yet)
# rs_id <- ref_client %>% search_reference_sets %>% content() %>%
# `$`("referenceSets") %>% `[[`(1) %>% `$`("id")
# ref_id <- ref_client %>% search_references(rs_id) %>% content() %>%
# `$`("references") %>% `[[`(1) %>% `$`("id")
#
# ## Search for reads in the read group set
# reads <- ref_client %>% search_reads(rg_id, reference_id = ref_id) %>% content()
# reads
#
# ## End(Not run)
Run the code above in your browser using DataLab