UIkitNavbar: Create an UIkit navigation bar container

In DivadNojnarg/shinyUIkit: 'shiny' API for the 'UIkit' Web Framework

Description

Create a navigation bar that can be used for your main site navigation

Usage

UIkitNavbar(..., transparent = FALSE, mode = NULL)

Arguments

...	Slot for UIkitNavMenu.
transparent	Navbar transparency. FALSE by default.
mode	Way to trigger navbar elements: NULL by default (on hover) but also "click".

Author(s)

David Granjon, [e-mail]

Examples

if(interactive()){
library(shiny)
shiny::shinyApp(
 ui = UIkitPage(
   title = "My UIkit application",
   navbar = UIkitNavbar(
     UIkitNavMenu(
       sidebarTrigger = TRUE, 
       sidebarId = "mysidebar",
       position = "center",
       UIkitNavItems(
         id = "container",
         #mode = "tabs",
         UIkitNavItem(tabName = "item1"),
         UIkitNavItem(tabName = "item2")
       )
     )
   ),
   UIkitSidebarLayout(
     sidebarPanel = UIkitSidebar(
       id = "mysidebar",
       tagList(
         h3("Test Sidebar"),
         "Lorem ipsum dolor sit amet, consectetur adipiscing 
         elit, sed do eiusmod tempor incididunt ut labore et 
         dolore magna aliqua. Ut enim ad minim veniam, quis 
         nostrud exercitation ullamco laboris nisi ut aliquip 
         ex ea commodo consequat.",
         sliderInput("obs", "Number of observations:",
                     min = 0, max = 1000, value = 500
         ),
         radioButtons(
           "dist", 
           "Distribution type:",
           c("Normal" = "norm",
             "Uniform" = "unif",
             "Log-normal" = "lnorm",
             "Exponential" = "exp"
           )
         )
       )
   ),
   mainPanel = UIkitTabItems(
     id = "container",
     plotOutput("distPlot"),
     plotOutput("plot")
   )
 )
 ),
 server = function(input, output) {
   output$distPlot <- renderPlot({
     hist(rnorm(input$obs))
   })
   output$plot <- renderPlot({
     dist <- switch(
       input$dist,
       norm = rnorm,
       unif = runif,
       lnorm = rlnorm,
       exp = rexp,
       rnorm
     )
     hist(dist(500))
   })
  }
 )
}

DivadNojnarg/shinyUIkit documentation built on July 24, 2019, 8:17 a.m.