library("shiny")
library("shinydashboard")
library("mmstat")
ui <- dashboardPage(
dashboardHeader(title="Test", titleWidth=300),
dashboardSidebar(width=300,
uiOutput("widgetUI")
),
dashboardBody(
fluidRow(
box(verbatimTextOutput("out"), width="420px", height="320px")
)
)
)
# one variable
w <- widgetDataset('widget')
widgetVariables(w, list())
server <- function(input, output, session) {
output$widgetUI <- renderUI({ renderWidget(w) })
output$out <- renderPrint({
inp <- getValues(w, input)
printVar(inp)
#
printVar(getInputs(w))
#
dfs <- getVariables(w, input, session)
printVar(dfs)
})
}
shinyApp(ui, server)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.