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