update examples to use sidebarLayout rather than pageWithSidebar

2026-04-07 03:00:20 -04:00 · 2013-12-13 07:52:47 -05:00
parent 8cba584e52
commit 0ea714552a
10 changed files with 180 additions and 162 deletions
--- a/inst/examples/01_hello/ui.R
+++ b/inst/examples/01_hello/ui.R
@@ -1,22 +1,24 @@
 library(shiny)

 # Define UI for application that plots random distributions 
-shinyUI(pageWithSidebar(
+shinyUI(fluidPage(
  
  # Application title
-  headerPanel("Hello Shiny!"),
+  titlePanel("Hello Shiny!"),
  
  # Sidebar with a slider input for number of observations
-  sidebarPanel(
-    sliderInput("obs", 
-                "Number of observations:", 
-                min = 1, 
-                max = 1000, 
-                value = 500)
-  ),
-  
-  # Show a plot of the generated distribution
-  mainPanel(
-    plotOutput("distPlot")
+  sidebarLayout(
+    sidebarPanel(
+      sliderInput("obs", 
+                  "Number of observations:", 
+                  min = 1, 
+                  max = 1000, 
+                  value = 500)
+    ),
+    
+    # Show a plot of the generated distribution
+    mainPanel(
+      plotOutput("distPlot")
+    )
  )
 ))
--- a/inst/examples/02_text/ui.R
+++ b/inst/examples/02_text/ui.R
@@ -1,25 +1,27 @@
 library(shiny)

 # Define UI for dataset viewer application
-shinyUI(pageWithSidebar(
+shinyUI(fluidPage(
  
  # Application title
-  headerPanel("Shiny Text"),
+  titlePanel("Shiny Text"),
  
  # Sidebar with controls to select a dataset and specify the number
  # of observations to view
-  sidebarPanel(
-    selectInput("dataset", "Choose a dataset:", 
-                choices = c("rock", "pressure", "cars")),
+  sidebarLayout(
+    sidebarPanel(
+      selectInput("dataset", "Choose a dataset:", 
+                  choices = c("rock", "pressure", "cars")),
+      
+      numericInput("obs", "Number of observations to view:", 10)
+    ),
    
-    numericInput("obs", "Number of observations to view:", 10)
-  ),
-  
-  # Show a summary of the dataset and an HTML table with the requested
-  # number of observations
-  mainPanel(
-    verbatimTextOutput("summary"),
-    
-    tableOutput("view")
+    # Show a summary of the dataset and an HTML table with the requested
+    # number of observations
+    mainPanel(
+      verbatimTextOutput("summary"),
+      
+      tableOutput("view")
+    )
  )
 ))
--- a/inst/examples/03_reactivity/ui.R
+++ b/inst/examples/03_reactivity/ui.R
@@ -1,32 +1,34 @@
 library(shiny)

 # Define UI for dataset viewer application
-shinyUI(pageWithSidebar(
+shinyUI(fluidPage(
  
  # Application title
-  headerPanel("Reactivity"),
+  titlePanel("Reactivity"),
  
  # Sidebar with controls to provide a caption, select a dataset, and 
  # specify the number of observations to view. Note that changes made
  # to the caption in the textInput control are updated in the output
  # area immediately as you type
-  sidebarPanel(
-    textInput("caption", "Caption:", "Data Summary"),
+  sidebarLayout(
+    sidebarPanel(
+      textInput("caption", "Caption:", "Data Summary"),
+      
+      selectInput("dataset", "Choose a dataset:", 
+                  choices = c("rock", "pressure", "cars")),
+      
+      numericInput("obs", "Number of observations to view:", 10)
+    ),
    
-    selectInput("dataset", "Choose a dataset:", 
-                choices = c("rock", "pressure", "cars")),
    
-    numericInput("obs", "Number of observations to view:", 10)
-  ),
-  
-  
-  # Show the caption, a summary of the dataset and an HTML table with
-  # the requested number of observations
-  mainPanel(
-    h3(textOutput("caption")), 
-    
-    verbatimTextOutput("summary"), 
-    
-    tableOutput("view")
+    # Show the caption, a summary of the dataset and an HTML table with
+    # the requested number of observations
+    mainPanel(
+      h3(textOutput("caption")), 
+      
+      verbatimTextOutput("summary"), 
+      
+      tableOutput("view")
+    )
  )
 ))
--- a/inst/examples/04_mpg/ui.R
+++ b/inst/examples/04_mpg/ui.R
@@ -1,26 +1,28 @@
 library(shiny)

 # Define UI for miles per gallon application
-shinyUI(pageWithSidebar(
+shinyUI(fluidPage(
  
  # Application title
-  headerPanel("Miles Per Gallon"),
+  titlePanel("Miles Per Gallon"),
  
  # Sidebar with controls to select the variable to plot against mpg
  # and to specify whether outliers should be included
-  sidebarPanel(
-    selectInput("variable", "Variable:",
-                c("Cylinders" = "cyl",
-                  "Transmission" = "am",
-                  "Gears" = "gear")),
-
-    checkboxInput("outliers", "Show outliers", FALSE)
-  ),
+  sidebarLayout(
+    sidebarPanel(
+      selectInput("variable", "Variable:",
+                  c("Cylinders" = "cyl",
+                    "Transmission" = "am",
+                    "Gears" = "gear")),
  
-  # Show the caption and plot of the requested variable against mpg
-  mainPanel(
-    h3(textOutput("caption")),
+      checkboxInput("outliers", "Show outliers", FALSE)
+    ),
    
-    plotOutput("mpgPlot")
+    # Show the caption and plot of the requested variable against mpg
+    mainPanel(
+      h3(textOutput("caption")),
+      
+      plotOutput("mpgPlot")
+    )
  )
 ))
--- a/inst/examples/05_sliders/ui.R
+++ b/inst/examples/05_sliders/ui.R
@@ -1,37 +1,39 @@
 library(shiny)

 # Define UI for slider demo application
-shinyUI(pageWithSidebar(
+shinyUI(fluidPage(
  
  #  Application title
-  headerPanel("Sliders"),
+  titlePanel("Sliders"),
  
  # Sidebar with sliders that demonstrate various available options
-  sidebarPanel(
-    # Simple integer interval
-    sliderInput("integer", "Integer:", 
-                min=0, max=1000, value=500),
+  sidebarLayout(
+    sidebarPanel(
+      # Simple integer interval
+      sliderInput("integer", "Integer:", 
+                  min=0, max=1000, value=500),
+      
+      # Decimal interval with step value
+      sliderInput("decimal", "Decimal:", 
+                  min = 0, max = 1, value = 0.5, step= 0.1),
+     
+      # Specification of range within an interval
+      sliderInput("range", "Range:",
+                  min = 1, max = 1000, value = c(200,500)),
+      
+      # Provide a custom currency format for value display, with basic animation
+      sliderInput("format", "Custom Format:", 
+                  min = 0, max = 10000, value = 0, step = 2500,
+                  format="$#,##0", locale="us", animate=TRUE),
+      
+      # Animation with custom interval (in ms) to control speed, plus looping
+      sliderInput("animation", "Looping Animation:", 1, 2000, 1, step = 10, 
+                  animate=animationOptions(interval=300, loop=TRUE))
+    ),
    
-    # Decimal interval with step value
-    sliderInput("decimal", "Decimal:", 
-                min = 0, max = 1, value = 0.5, step= 0.1),
-   
-    # Specification of range within an interval
-    sliderInput("range", "Range:",
-                min = 1, max = 1000, value = c(200,500)),
-    
-    # Provide a custom currency format for value display, with basic animation
-    sliderInput("format", "Custom Format:", 
-                min = 0, max = 10000, value = 0, step = 2500,
-                format="$#,##0", locale="us", animate=TRUE),
-    
-    # Animation with custom interval (in ms) to control speed, plus looping
-    sliderInput("animation", "Looping Animation:", 1, 2000, 1, step = 10, 
-                animate=animationOptions(interval=300, loop=TRUE))
-  ),
-  
-  # Show a table summarizing the values entered
-  mainPanel(
-    tableOutput("values")
+    # Show a table summarizing the values entered
+    mainPanel(
+      tableOutput("values")
+    )
  )
 ))
--- a/inst/examples/06_tabsets/ui.R
+++ b/inst/examples/06_tabsets/ui.R
@@ -1,36 +1,38 @@
 library(shiny)

 # Define UI for random distribution application 
-shinyUI(pageWithSidebar(
+shinyUI(fluidPage(
    
  # Application title
-  headerPanel("Tabsets"),
+  titlePanel("Tabsets"),
  
  # Sidebar with controls to select the random distribution type
  # and number of observations to generate. Note the use of the br()
  # element to introduce extra vertical spacing
-  sidebarPanel(
-    radioButtons("dist", "Distribution type:",
-                 c("Normal" = "norm",
-                   "Uniform" = "unif",
-                   "Log-normal" = "lnorm",
-                   "Exponential" = "exp")),
-    br(),
+  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)
+    ),
    
-    sliderInput("n", 
-                "Number of observations:", 
-                 value = 500,
-                 min = 1, 
-                 max = 1000)
-  ),
-  
-  # Show a tabset that includes a plot, summary, and table view
-  # of the generated distribution
-  mainPanel(
-    tabsetPanel(
-      tabPanel("Plot", plotOutput("plot")), 
-      tabPanel("Summary", verbatimTextOutput("summary")), 
-      tabPanel("Table", tableOutput("table"))
+    # Show a tabset that includes a plot, summary, and table view
+    # of the generated distribution
+    mainPanel(
+      tabsetPanel(
+        tabPanel("Plot", plotOutput("plot")), 
+        tabPanel("Summary", verbatimTextOutput("summary")), 
+        tabPanel("Table", tableOutput("table"))
+      )
    )
  )
 ))
--- a/inst/examples/07_widgets/ui.R
+++ b/inst/examples/07_widgets/ui.R
@@ -1,10 +1,10 @@
 library(shiny)

 # Define UI for dataset viewer application
-shinyUI(pageWithSidebar(
+shinyUI(fluidPage(
  
  # Application title.
-  headerPanel("More Widgets"),
+  titlePanel("More Widgets"),
  
  # Sidebar with controls to select a dataset and specify the number
  # of observations to view. The helpText function is also used to 
@@ -13,27 +13,29 @@ shinyUI(pageWithSidebar(
  # explicitly clicks the button (rather than doing it immediately
  # when inputs change). This is useful if the computations required
  # to render output are inordinately time-consuming.
-  sidebarPanel(
-    selectInput("dataset", "Choose a dataset:", 
-                choices = c("rock", "pressure", "cars")),
+  sidebarLayout(
+    sidebarPanel(
+      selectInput("dataset", "Choose a dataset:", 
+                  choices = c("rock", "pressure", "cars")),
+      
+      numericInput("obs", "Number of observations to view:", 10),
+      
+      helpText("Note: while the data view will show only the specified",
+               "number of observations, the summary will still be based",
+               "on the full dataset."),
+      
+      submitButton("Update View")
+    ),
    
-    numericInput("obs", "Number of observations to view:", 10),
-    
-    helpText("Note: while the data view will show only the specified",
-             "number of observations, the summary will still be based",
-             "on the full dataset."),
-    
-    submitButton("Update View")
-  ),
-  
-  # Show a summary of the dataset and an HTML table with the requested
-  # number of observations. Note the use of the h4 function to provide
-  # an additional header above each output section.
-  mainPanel(
-    h4("Summary"),
-    verbatimTextOutput("summary"),
-    
-    h4("Observations"),
-    tableOutput("view")
+    # Show a summary of the dataset and an HTML table with the requested
+    # number of observations. Note the use of the h4 function to provide
+    # an additional header above each output section.
+    mainPanel(
+      h4("Summary"),
+      verbatimTextOutput("summary"),
+      
+      h4("Observations"),
+      tableOutput("view")
+    )
  )
 ))
--- a/inst/examples/09_upload/ui.R
+++ b/inst/examples/09_upload/ui.R
@@ -1,24 +1,26 @@
 library(shiny)

-shinyUI(pageWithSidebar(
-  headerPanel("Uploading Files"),
-  sidebarPanel(
-    fileInput('file1', 'Choose CSV File',
-              accept=c('text/csv', 'text/comma-separated-values,text/plain', '.csv')),
-    tags$hr(),
-    checkboxInput('header', 'Header', TRUE),
-    radioButtons('sep', 'Separator',
-                 c(Comma=',',
-                   Semicolon=';',
-                   Tab='\t'),
-                 'Comma'),
-    radioButtons('quote', 'Quote',
-                 c(None='',
-                   'Double Quote'='"',
-                   'Single Quote'="'"),
-                 'Double Quote')
-  ),
-  mainPanel(
-    tableOutput('contents')
+shinyUI(fluidPage(
+  titlePanel("Uploading Files"),
+  sidebarLayout(
+    sidebarPanel(
+      fileInput('file1', 'Choose CSV File',
+                accept=c('text/csv', 'text/comma-separated-values,text/plain', '.csv')),
+      tags$hr(),
+      checkboxInput('header', 'Header', TRUE),
+      radioButtons('sep', 'Separator',
+                   c(Comma=',',
+                     Semicolon=';',
+                     Tab='\t'),
+                   'Comma'),
+      radioButtons('quote', 'Quote',
+                   c(None='',
+                     'Double Quote'='"',
+                     'Single Quote'="'"),
+                   'Double Quote')
+    ),
+    mainPanel(
+      tableOutput('contents')
+    )
  )
 ))
--- a/inst/examples/10_download/ui.R
+++ b/inst/examples/10_download/ui.R
@@ -1,11 +1,13 @@
-shinyUI(pageWithSidebar(
-  headerPanel('Downloading Data'),
-  sidebarPanel(
-    selectInput("dataset", "Choose a dataset:", 
-                choices = c("rock", "pressure", "cars")),
-    downloadButton('downloadData', 'Download')
-  ),
-  mainPanel(
-    tableOutput('table')
+shinyUI(fluidPage(
+  titlePanel('Downloading Data'),
+  sidebarLayout(
+    sidebarPanel(
+      selectInput("dataset", "Choose a dataset:", 
+                  choices = c("rock", "pressure", "cars")),
+      downloadButton('downloadData', 'Download')
+    ),
+    mainPanel(
+      tableOutput('table')
+    )
  )
 ))
--- a/inst/examples/11_timer/ui.R
+++ b/inst/examples/11_timer/ui.R
@@ -1,3 +1,3 @@
-shinyUI(bootstrapPage(
+shinyUI(fluidPage(
  textOutput("currentTime")
 ))