% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/shinythemes-package.r
\docType{package}
\name{shinythemes}
\alias{shinythemes}
\alias{shinythemes-package}
\title{Themes for Shiny}
\description{
This package contains Bootstrap themes from http://bootswatch.com/, which are
packaged for use with Shiny applications. The themes included are:
}
\details{
\itemize{
  \item \href{http://bootswatch.com/3/cerulean/}{cerulean}
  \item \href{http://bootswatch.com/3/cosmo/}{cosmo}
  \item \href{http://bootswatch.com/3/cyborg/}{cyborg}
  \item \href{http://bootswatch.com/3/darkly/}{darkly}
  \item \href{http://bootswatch.com/3/flatly/}{flatly}
  \item \href{http://bootswatch.com/3/journal/}{journal}
  \item \href{http://bootswatch.com/3/lumen/}{lumen}
  \item \href{http://bootswatch.com/3/paper/}{paper}
  \item \href{http://bootswatch.com/3/readable/}{readable}
  \item \href{http://bootswatch.com/3/sandstone/}{sandstone}
  \item \href{http://bootswatch.com/3/simplex/}{simplex}
  \item \href{http://bootswatch.com/3/slate/}{slate}
  \item \href{http://bootswatch.com/3/spacelab/}{spacelab}
  \item \href{http://bootswatch.com/3/superhero/}{superhero}
  \item \href{http://bootswatch.com/3/united/}{united}
  \item \href{http://bootswatch.com/3/yeti/}{yeti}
}

To use the themes, use the \code{theme} argument to
\code{\link[shiny]{bootstrapPage}}, \code{\link[shiny]{fluidPage}},
\code{\link[shiny]{navbarPage}}, or \code{\link[shiny]{fixedPage}}. The value
should be \code{shinytheme("cerulean")}, where the theme name takes the place
of \code{"cerulean"}.
}
\examples{
\dontrun{
library(shiny)
library(shinythemes)

# A very basic navbar page with different themes
shinyApp(
  ui = navbarPage("Default theme",
    tabPanel("Plot", "Plot tab contents..."),
    navbarMenu("More",
      tabPanel("Summary", "Summary tab contents..."),
      tabPanel("Table", "Table tab contents...")
    )
  ),
  server = function(input, output) { }
)

shinyApp(
  ui = navbarPage("United",
    theme = shinytheme("united"),
    tabPanel("Plot", "Plot tab contents..."),
    navbarMenu("More",
      tabPanel("Summary", "Summary tab contents..."),
      tabPanel("Table", "Table tab contents...")
    )
  ),
  server = function(input, output) { }
)

shinyApp(
  ui = navbarPage("Cerulean",
    theme = shinytheme("cerulean"),
    tabPanel("Plot", "Plot tab contents..."),
    navbarMenu("More",
      tabPanel("Summary", "Summary tab contents..."),
      tabPanel("Table", "Table tab contents...")
    )
  ),
  server = function(input, output) { }
)


# A more complicated app with the flatly theme
shinyApp(
  ui = fluidPage(
    theme = shinytheme("flatly"),
    titlePanel("Tabsets"),
    sidebarLayout(
      sidebarPanel(
        radioButtons("dist", "Distribution type:",
                     c("Normal" = "norm",
                       "Uniform" = "unif",
                       "Log-normal" = "lnorm",
                       "Exponential" = "exp")),
        br(),
        sliderInput("n", "Number of observations:",
                     value = 500, min = 1, max = 1000)
      ),
      mainPanel(
        tabsetPanel(type = "tabs",
          tabPanel("Plot", plotOutput("plot")),
          tabPanel("Summary", verbatimTextOutput("summary")),
          tabPanel("Table", tableOutput("table"))
        )
      )
    )
  ),
  server = function(input, output) {
    data <- reactive({
      dist <- switch(input$dist,
                     norm = rnorm,
                     unif = runif,
                     lnorm = rlnorm,
                     exp = rexp,
                     rnorm)
      dist(input$n)
    })

    output$plot <- renderPlot({
      dist <- input$dist
      n <- input$n
      hist(data(), main=paste('r', dist, '(', n, ')', sep=''))
    })

    output$summary <- renderPrint({
      summary(data())
    })

    output$table <- renderTable({
      data.frame(x=data())
    })
  }
)
}
}
