Sys.setenv(LANGUAGE = "en") # Force locale
# Back transform to count ======================================================
data("hongite")
coda <- as_composition(hongite)
count <- as_amounts(coda)
expect_equal(as.data.frame(count), hongite)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.