txt <- rep(paste0(letters, collapse = ' '), 10000)
toks <- tokens(txt, hash = FALSE)
toks_hash <- tokens(txt, hash = TRUE)
profvis(
dfm(toks)
)
profvis(
dfm(toks_hash)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.