sidebarLayout_dsfr

Créez une mise en page (sidebarLayout_dsfr()) avec une barre latérale (sidebarPanel_dsfr()) et une zone principale (mainPanel_dsfr()). La barre latérale peut s'afficher avec une couleur d'arrière-plan grise et contient généralement des contrôles d'entrée. La zone principale occupe les 2/3 de la largeur et contient généralement des sorties.

sidebarLayout_dsfr(sidebarPanel, mainPanel, position = c("left", "right"))

sidebarPanel_dsfr(..., width = 4, title = NULL)

mainPanel_dsfr(..., width = 8)

Arguments

sidebarPanel

Le sidebarPanel_dsfr() contenant les contrôles d'entrée.

mainPanel

Le mainPanel_dsfr() contenant les sorties.

position

La position de la barre latérale par rapport à la zone principale ("left" ou "right").

...

Éléments de sortie à inclure dans la barre latérale/panneau principal.

width

La largeur de la barre latérale et du panneau principal. Par défaut, La barre latérale occupe 1/3 de la largeur et le panneau principal 2/3. Le total doit être inférieur ou égale à 12.

title

titre du panneau de barre latérale (facultatif)

Value

html

References

inspiré de la fonction shiny::sidebarLayout()

See also

Other layout functions: wellPanel_dsfr()

Examples

## Only run examples in interactive R sessions
if (interactive()) {
options(device.ask.default = FALSE)

# Define UI
ui <- fluidPage_dsfr(

  # Application title
  titlePanel("Hello Shiny!"),

  sidebarLayout_dsfr(

    # Sidebar with a slider input
    sidebarPanel_dsfr(
      sliderInput_dsfr("obs",
                  "Number of observations:",
                  min = 0,
                  max = 1000,
                  value = 500),
      width = 4,
      title = "My sidebar"
    ),

    # Show a plot of the generated distribution
    mainPanel_dsfr(
      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)
}