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")
)
)
)
w <- widgetLanguage('widget')
server <- function(input, output, session) {
widgetObserve(w, input, session)
output$widgetUI <- renderUI({ renderWidget(w) })
output$out <- renderPrint({
inp <- getValues(w, input)
printVar(inp)
#
printVar(getInputs(w))
})
}
shinyApp(ui, server)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.