mirror of
https://github.com/rstudio/shiny.git
synced 2026-01-10 07:28:01 -05:00
94 lines
2.2 KiB
R
94 lines
2.2 KiB
R
% Generated by roxygen2: do not edit by hand
|
|
% Please edit documentation in R/bootstrap-layout.R
|
|
\name{sidebarLayout}
|
|
\alias{sidebarLayout}
|
|
\alias{sidebarPanel}
|
|
\alias{mainPanel}
|
|
\title{Layout a sidebar and main area}
|
|
\usage{
|
|
sidebarLayout(
|
|
sidebarPanel,
|
|
mainPanel,
|
|
position = c("left", "right"),
|
|
fluid = TRUE
|
|
)
|
|
|
|
sidebarPanel(..., width = 4)
|
|
|
|
mainPanel(..., width = 8)
|
|
}
|
|
\arguments{
|
|
\item{sidebarPanel}{The \code{sidebarPanel()} containing input controls.}
|
|
|
|
\item{mainPanel}{The \code{mainPanel()} containing outputs.}
|
|
|
|
\item{position}{The position of the sidebar relative to the main area ("left"
|
|
or "right").}
|
|
|
|
\item{fluid}{\code{TRUE} to use fluid layout; \code{FALSE} to use fixed
|
|
layout.}
|
|
|
|
\item{...}{Output elements to include in the sidebar/main panel.}
|
|
|
|
\item{width}{The width of the sidebar and main panel. By default, the
|
|
sidebar takes up 1/3 of the width, and the main panel 2/3. The total
|
|
width must be 12 or less.}
|
|
}
|
|
\description{
|
|
Create a layout (\code{sidebarLayout()}) with a sidebar (\code{sidebarPanel()}) and
|
|
main area (\code{mainPanel()}). The sidebar is displayed with a distinct
|
|
background color and typically contains input controls. The main
|
|
area occupies 2/3 of the horizontal width and typically contains outputs.
|
|
}
|
|
\examples{
|
|
## Only run examples in interactive R sessions
|
|
if (interactive()) {
|
|
options(device.ask.default = FALSE)
|
|
|
|
# Define UI
|
|
ui <- fluidPage(
|
|
|
|
# Application title
|
|
titlePanel("Hello Shiny!"),
|
|
|
|
sidebarLayout(
|
|
|
|
# Sidebar with a slider input
|
|
sidebarPanel(
|
|
sliderInput("obs",
|
|
"Number of observations:",
|
|
min = 0,
|
|
max = 1000,
|
|
value = 500)
|
|
),
|
|
|
|
# Show a plot of the generated distribution
|
|
mainPanel(
|
|
plotOutput("distPlot")
|
|
)
|
|
)
|
|
)
|
|
|
|
# Server logic
|
|
server <- function(input, output) {
|
|
output$distPlot <- renderPlot({
|
|
hist(rnorm(input$obs))
|
|
})
|
|
}
|
|
|
|
# Complete app with UI and server components
|
|
shinyApp(ui, server)
|
|
}
|
|
}
|
|
\seealso{
|
|
Other layout functions:
|
|
\code{\link{fillPage}()},
|
|
\code{\link{fixedPage}()},
|
|
\code{\link{flowLayout}()},
|
|
\code{\link{fluidPage}()},
|
|
\code{\link{navbarPage}()},
|
|
\code{\link{splitLayout}()},
|
|
\code{\link{verticalLayout}()}
|
|
}
|
|
\concept{layout functions}
|