Nothing
library(shiny)
library(miniUI)
.currentwd <- get(".currentwd", envir = NMproject:::.sso_env)
setwd(.currentwd)
# Gets The active Documeent
ui <- miniPage(
gadgetTitleBar("select behaviour and click done"),
miniContentPanel(
DT::dataTableOutput("behaviour_table")#,
# radioButtons("overwrite_behaviour", "",
# NMproject::.overwrite_behaviour$txt,
# selected = NMproject::overwrite_behaviour())
)
)
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.