inst/shiny-demo/testDataset1.R

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)
sigbertklinke/mmstat documentation built on May 14, 2019, 8:36 a.m.