From 06371af8ccefa62a6fd7727aa9032fb5134e08f0 Mon Sep 17 00:00:00 2001 From: Garrett Grolemund Date: Fri, 12 Jan 2024 10:54:52 -0600 Subject: [PATCH] Updates 05_sliders --- inst/examples/05_sliders/app.R | 24 ++++++++---------------- 1 file changed, 8 insertions(+), 16 deletions(-) diff --git a/inst/examples/05_sliders/app.R b/inst/examples/05_sliders/app.R index d9aa05c727..eb6e86181e 100644 --- a/inst/examples/05_sliders/app.R +++ b/inst/examples/05_sliders/app.R @@ -1,16 +1,14 @@ library(shiny) +library(bslib) # Define UI for slider demo app ---- -ui <- fluidPage( +ui <- page_sidebar( # App title ---- - titlePanel("Sliders"), - - # Sidebar layout with input and output definitions ---- - sidebarLayout( - - # Sidebar to demonstrate various slider options ---- - sidebarPanel( + title = "Sliders", + # Sidebar panel for inputs ---- + sidebar = + sidebar( # Input: Simple integer interval ---- sliderInput("integer", "Integer:", @@ -44,14 +42,8 @@ ui <- fluidPage( ), - # Main panel for displaying outputs ---- - mainPanel( - - # Output: Table summarizing the values entered ---- - tableOutput("values") - - ) - ) + # Output: Table summarizing the values entered ---- + tableOutput("values") ) # Define server logic for slider examples ----