library(taxa)
sources <- data.frame(
name = names(database_list),
description = as.vector(sapply(names(database_list), function(x) {
database_list[[x]]$description
}))
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.