#library(FirebrowseR)
context("Analyses.FeatureTable")
test_that("URLs are retrieved correctly", {
format = "tsv"
cohort = "PRAD"
column = c("tcga_participant_barcode", "cohort")
page = 1
page_size = 250
obj = Analyses.FeatureTable(format = format,
cohort = cohort,
column = column,
page = page,
page_size = page_size)
test.q = "http://firebrowse.org/api/v1/Analyses/FeatureTable?format=tsv&cohort=PRAD&column=tcga_participant_barcode%2Ccohort&page=1&page_size=250"
test.obj = read.table(test.q, header = T, sep = "\t")
expect_equal(nrow(obj), nrow(test.obj))
expect_equal(ncol(obj), ncol(test.obj))
column = ""
obj = Analyses.FeatureTable(format = format,
cohort = cohort,
column = column,
page = page,
page_size = page_size)
test.q = "http://firebrowse.org/api/v1/Analyses/FeatureTable?format=tsv&cohort=PRAD&page=1&page_size=250"
test.obj = read.table(test.q, header = T, sep = "\t")
expect_equal(nrow(obj), nrow(test.obj))
expect_equal(ncol(obj), ncol(test.obj))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.