inst/shiny-demo/testConfidenceLevel.R

In sigbertklinke/mmstat: Support for the development of interactive Shiny apps

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 <- widgetConfidenceLevel('widget')

server <- function(input, output, session) {
	
	output$widgetUI     <- renderUI({ renderWidget(w) })
	
	output$out <- renderPrint({
		inp <- getValues(w, input)
		printVar(inp)
		#
		printVar(getInputs(w))
	})
}

shinyApp(ui, server)