Nothing
extractPairs <- function(res.list, ag.list, pair=names(ag.list)[1:2], targetFile) {
row.idx <- grep(targetFile, rownames(ag.list[[1]]))
if(length(row.idx) == 0) stop("Target category name not found in the abundance data");
counts <- data.frame(res.list[[pair[1]]]$counts[,1,drop=FALSE],
res.list[[pair[2]]]$counts[,1, drop=FALSE])
abundance <- data.frame(t(ag.list[[pair[1]]][row.idx,]),
t(ag.list[[pair[2]]][row.idx,]))
colnames(abundance) <- pair
rownames(counts) <- rownames(abundance)
data.frame(counts, abundance)
}
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.