import_usearch_biom_file <- function(in_file, ...) {
parse_taxonomy_usearch <- function (char.vec){
parse_taxonomy_default(strsplit(char.vec, ",", TRUE)[[1]])
}
expt <- import_biom(in_file, parseFunction = parse_taxonomy_usearch, ...)
return(expt)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.