Nothing
.onLoad <- function(
libname = find.package("sentopics"),
pkgname = "sentopics"
) {
# CRAN note avoidance
if (getRversion() >= "2.15.1") {
utils::globalVariables(c(
# ".", ".N", ".SD", ":=", "V1", "V2", "V3", "i", "i.prob", "value.y",
# "id", "lexicon", "model", "parent", "prob", "sentiment",
# "topic", "value", "vocab", "word", "x", "texts", "label",
# "LoughranMcDonald"
))
}
invisible()
}
.onUnload <- function(libpath) {
library.dynam.unload("sentopics", libpath)
}
Rcpp::loadModule("model_module", TRUE)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.