## ----libraryLoad---------------------------------------------------------
suppressMessages(library(ENCODExplorer))

## ----query_results, collapse=TRUE----------------------------------------
query_results <- queryEncode(assay = "RNA-seq", organism = "Homo sapiens",
                       biosample = "MCF-7", file_format = "fastq", fixed = TRUE)

## ----query_results_2, collapse=TRUE--------------------------------------
query_results <- queryEncode(assay = "rnaseq", organism = "Homo sapiens",
                       biosample = "MCF-7", file_format = "fastq", fixed = TRUE)

## ----query_results_3, collapse=TRUE--------------------------------------
query_results <- queryEncode(assay = "rnaseq", organism = "Homo sapiens",
                       biosample = "MCF-7", file_format = "fastq",
                       fixed = FALSE)

## ----search_results, collapse=TRUE---------------------------------------
search_results <- searchEncode(searchTerm = "a549 chip-seq homo sapiens",
                         limit = "all")

## ----query_results_4, collapse=TRUE--------------------------------------
query_results <- queryEncode(assay = "switchgear", target ="elavl1", fixed = FALSE)

## ----search_results_2, collapse=TRUE-------------------------------------
search_results <- searchEncode(searchTerm = "switchgear elavl1", limit = "all")

## ----query_results_5, collapse=TRUE, eval=TRUE---------------------------
query_results <- queryEncode(assay = "switchgear", target ="elavl1",
                       file_format = "bed_broadPeak" , fixed = FALSE)
downloadEncode(resultSet = query_results, resultOrigin = "queryEncode")

## ----collapse=TRUE, eval=TRUE--------------------------------------------
downloadEncode(resultSet = search_results, resultOrigin = "searchEncode", format = "bed_broadPeak")