Nothing
runDynPred <- function (type = c("JM", "lme")) {
type <- match.arg(type)
if (requireNamespace("shiny", quietly = TRUE)) {
if (type == "JM") {
shiny::runApp(system.file("shiny_app_JM", package = "JMbayes"))
} else {
shiny::runApp(system.file("shiny_app_lme", package = "JMbayes"))
}
} else {
cat("\npackage 'shiny' is not installed...")
}
}
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.