10_shiny.utf8

`Shiny`

Layout

Basé sur le framework Bootstrap :

Themes et icones
Grid système
Design Responsive

Themes possibles

library(shinythemes)

ui <- fluidPage(theme = shinytheme("cerulean"),
                titlePanel("My Application")
)

server <- function(input, output, session){}

shinyApp(ui, server)

Creer des onglets

ui <- navbarPage("My Application",
                 tabPanel("Component 1"),
                 tabPanel("Component 2"),
                 navbarMenu("More",
                            tabPanel("Sub-Component A"),
                            tabPanel("Sub-Component B"))
)

ui <- navbarPage("My Application",
                 tabPanel("Component 1"),
                 tabPanel("Component 2"),
                 navbarMenu("More",
                            tabPanel("Sub-Component A"),
                            tabPanel("Sub-Component B"))
)

ui <- fluidPage(
  
  titlePanel("Application Title"),
  
  navlistPanel(
    "Header A",
    tabPanel("Component 1"),
    tabPanel("Component 2"),
    "Header B",
    tabPanel("Component 3"),
    tabPanel("Component 4")
  )
)

ui <- fluidPage(
  
  titlePanel("Application Title"),
  
  navlistPanel(
    "Header A",
    tabPanel("Component 1"),
    tabPanel("Component 2"),
    "Header B",
    tabPanel("Component 3"),
    tabPanel("Component 4")
  )
)

ui <- fluidPage(
  
  titlePanel("Titre"),
  
  sidebarLayout(
    sidebarPanel(
      h3('Sidebar')
    ),
    mainPanel(
      h3('Main Panel')
    )
  )
)

ui <- fluidPage(
  
  titlePanel("Titre"),
  
  sidebarLayout(
    sidebarPanel(
      h3('Sidebar')
    ),
    mainPanel(
      h3('Main Panel')
    )
  )
)

Composition d’une page

Créer des espaces vides avec `offset`

DashBoard

sidebar <- dashboardSidebar(
  sidebarMenu(
    menuItem("Menu item", tabName = "menu", icon = icon("calendar"),
             menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")),
             menuItem("Widgets", tabName = "widgets", icon = icon("th"))
    )
  )
  
  body <- dashboardBody(
    tabItems(
      tabItem(tabName = "menu",
              h2("Menu tab content")
      ),
      tabItem(tabName = "dashboard",
              h2("Dashboard tab content")
      ),
      tabItem(tabName = "widgets",
              h2("Widgets tab content")
      )
    )
  )
  
  # Put them together into a dashboardPage
  ui <- dashboardPage(
    dashboardHeader(title = "Simple tabs"),
    sidebar,
    body
  )
  
  server <- function(input, output) {
  }
  
  shinyApp(ui, server)

`Shiny`

Layout

Themes possibles

Themes possibles

Creer des onglets

Sidebar Layout

Composition d’une page

Créer des espaces vides avec `offset`

DashBoard

Personnaliser le dashboard

Pour aller plus loin

Pour aller plus loin

Récapitulatif

Reactivité

Questions?

Shiny

Layout

Themes possibles

Themes possibles

Creer des onglets

Sidebar Layout

Composition d’une page

Créer des espaces vides avec offset

DashBoard

Personnaliser le dashboard

Pour aller plus loin

Pour aller plus loin

Récapitulatif

Reactivité

Questions?

`Shiny`

Créer des espaces vides avec `offset`