Build an UIkit Shiny app.
UIkitPage(..., title = NULL, navbar = NULL)
... | any element. |
---|---|
title | App title. |
navbar | Navbar content, if any. |
if(interactive()){ library(shiny) library(shinyUIkit) shiny::shinyApp( ui = UIkitPage( title = "My UIkit application", sliderInput("obs", "Number of observations:", min = 0, max = 1000, value = 500 ), plotOutput("distPlot") ), server = function(input, output) { output$distPlot <- renderPlot({ hist(rnorm(input$obs)) }) } ) }