Nothing
context("qiime2 examples")
library(breakaway)
test_that("Canonical QIIME2 Example Datasets Work", {
x <- readLines("https://raw.githubusercontent.com/paulinetrinh/data/master/otu_table_atacama.txt",
warn = FALSE)
a_table <- read.table(text = x,
skip = 0,
header = F,
row.names = NULL)[,-1]
colnames(a_table) <- colnames(read.csv(text = x, nrows=1, skip=1, sep = "\t"))[-1]
a_ps <- phyloseq(otu_table(a_table, taxa_are_rows = TRUE))
expect_warning({a_breakaway <- breakaway(a_ps)})
expect_is(a_breakaway, "alpha_estimates")
expect_is(a_breakaway %>% summary, "data.frame")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.