maketax <- function(binomial, grouping){
res <- Taxon$new(binomial = binomial, grouping = grouping)
res
#structure(res, class = c("Taxon", "stuff"))
}
`[.MultiTaxonId` <- function(x, i) {
x$ids[i]
}
`[[.MultiTaxonId` <- function(x, i) {
x$ids[[i]]
}
`[.TaxonId` <- function(x, i) {
x$id[i]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.