布局与主题

使用 R 构建 Shiny Web 应用

Kaelen Medeiros

Data Scientist

默认 Shiny 应用布局

ui <- fluidPage(
  titlePanel("Histogram"),
  sliderInput('nb_bins', '# Bins', 5, 10, 5),
  plotOutput('hist')
)
server <- function(input, output, session){
  output$hist <- renderPlot({
    hist(faithful$waiting, 
         breaks = input$nb_bins, 
         col = 'steelblue')
  })
}
shinyApp(ui = ui, server = server)

一个应用：显示等待时间直方图和用于控制箱数的滑块输入

使用 R 构建 Shiny Web 应用

侧边栏布局

ui <- fluidPage(
  titlePanel("Histogram"),
  sidebarLayout(
    sidebarPanel(sliderInput('nb_bins', 
                             '# Bins', 5, 10, 5)),
    mainPanel(plotOutput('hist'))
  )
)
server <- function(input, output, session){
  output$hist <- renderPlot({
    hist(faithful$waiting, breaks = input$nb_bins, 
         col = 'steelblue')
  })
}
shinyApp(ui = ui, server = server)

一个应用：右侧为等待时间直方图，左侧为控制箱数的滑块输入

使用 R 构建 Shiny Web 应用

选项卡布局

一个应用：右侧为等待时间直方图，左侧为控制箱数的滑块输入

一个应用：右侧为等待时间直方图，左侧为控制箱数的滑块输入，并有两个选项卡

使用 R 构建 Shiny Web 应用

选项卡布局

ui <- fluidPage(
  titlePanel("Histogram"),
  sidebarLayout(
    sidebarPanel(sliderInput('nb_bins', '# Bins', 
                             5, 10, 5)),
    mainPanel(

      tabsetPanel(
        tabPanel('Waiting', 
                 plotOutput('hist_waiting')),
        tabPanel('Eruptions',
                 plotOutput('hist_eruptions'))
      )

    )
  )
)

server <- function(input, output, session){
  output$hist_waiting <- renderPlot({
    hist(faithful$waiting, 
         breaks = input$nb_bins, 
         col = 'steelblue')
  })
  output$hist_eruptions <- renderPlot({
    hist(faithful$eruptions, 
         breaks = input$nb_bins, 
         col = 'steelblue')
  })
}
shinyApp(ui = ui, server = server)
使用 R 构建 Shiny Web 应用

主题选择器

ui <- fluidPage(
  titlePanel("Histogram"),

  shinythemes::themeSelector(),

  sidebarLayout(
    sidebarPanel(sliderInput('nb_bins', '# Bins', 
                             5, 10, 5)),
    mainPanel(plotOutput('hist'))
  )
)
server <- function(input, output, session){
  output$hist <- renderPlot({
    hist(faithful$waiting, breaks = input$nb_bins, 
         col = 'steelblue')
  })
}
shinyApp(ui = ui, server = server)

一个应用：右侧为等待时间直方图，左侧为控制箱数的滑块输入，并带有浮动主题选择器

使用 R 构建 Shiny Web 应用

添加主题

ui <- fluidPage(
  titlePanel("Histogram"),

  theme = shinythemes::shinytheme('superhero'),

  sidebarLayout(
    sidebarPanel(sliderInput('nb_bins', '# Bins', 
                             5, 10, 5)),
    mainPanel(plotOutput('hist'))
  )
)
server <- function(input, output, session){
  output$hist <- renderPlot({
    hist(faithful$waiting, breaks = input$nb_bins, 
         col = 'steelblue')
  })
}
shinyApp(ui = ui, server = server)

一个应用：右侧为等待时间直方图，左侧为控制箱数的滑块输入

使用 R 构建 Shiny Web 应用

Passons à la pratique !

使用 R 构建 Shiny Web 应用

Preparing Video For Download...