gentelellaShiny (version 0.1.0)

tabSetPanel: Create a gentelella tabSetPanel

Description

Create a gentelella tabSetPanel

Usage

tabSetPanel(..., id, right = FALSE)

Arguments

...

Slot for tabPanel.

id

TabSetPanel id. Should be unique.

right

If TabSetPanel start from the right side. FALSE by default.

Examples

# NOT RUN {
if (interactive()) {
 library(shiny)
 library(gentelellaShiny)
 shinyApp(
  ui = gentelellaPageCustom(
   gentelellaBody(
    tabSetPanel(
     id = "tabset1",
     tabPanel(
       tabName = "Home",
       active = TRUE,
       "Raw denim you probably haven't heard of
       them jean shorts Austin. Nesciunt tofu stumptown
       aliqua, retro synth master cleanse. Mustache
       cliche tempor, williamsburg carles vegan helvetica.
       Reprehenderit butcher retro keffiyeh dreamcatcher synth.
       Cosby sweater eu banh mi, qui irure terr."
     ),
     tabPanel(
       tabName = "Profile",
       active = FALSE,
       sliderInput(
         "obs",
         "Number of observations:",
         min = 0,
         max = 1000,
         value = 500
       ),
       plotOutput("distPlot")
     )
    )
   )
  ),
  server = function(input, output, session) {
   output$distPlot <- renderPlot({
    hist(rnorm(input$obs))
   })
  }
 )
}

# }