shinyServer(function(input, output, session) {
corpusServer(input, output, session)
partitionServer(input, output, session)
kwicServer(input, output, session)
cooccurrencesServer(input, output, session)
dispersionServer(input, output, session)
featuresServer(input, output, session)
readServer(input, output, session)
countServer(input, output, session)
session$onSessionEnded(
function() {
funs <- c(
"cooccurrencesServer",
"cooccurrencesUiInput",
"cooccurrencesUiOutput",
"corpusServer",
"corpusUiInput",
"corpusUiOutput",
"countServer",
"countUiInput",
"countUiOutput",
"dispersionServer",
"dispersionUiInput",
"dispersionUiOutput",
"featuresServer",
"featuresUiInput",
"featuresUiOutput",
"getOptionsPolmineR",
"kwicServer",
"kwicUiInput",
"kwicUiOutput",
"partitionGadget",
"partitionServer",
"partitionUiInput",
"partitionUiOutput",
"readServer",
"readUiInput",
"readUiOutput",
"rectifySpecialChars"
)
rm(list = funs, envir = .GlobalEnv)
}
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.