Typen output

Dashboards bouwen met shinydashboard

Png Kee Seng

Researcher

Output- en render-functies

In een shinyApp zijn er outputs
Voor elke output moet je twee functies aanroepen
- De eerste is een functie in de UI
- Hiermee bepaal je waar de output komt
- Zo’n outputfunctie heeft meestal de vorm:
```
<type>output(<identifying label>, ...)
```
De tweede code staat in de server-functie
- Die heeft de vorm:
```
output$<identifying label> <- render<type>(...)
```

Voorbeeld: slaaponderzoek

Laten we eerst de dataset inladen

library(tidyverse)
sleep <- read_csv("../data/Time Americans Spend Sleeping.csv")

Dit zijn de kolommen

$ index                   : num [1:945] 0 1 2 3 4  ...
$ Year                    : num [1:945] 2003 2004 2005 2006 2007 ...
$ Period                  : chr [1:945] "Annual" "Annual" "Annual" "Annual" ...
$ Avg hrs per day sleeping: num [1:945] 8.57 8.55 8.62 8.63  ...
$ Standard Error          : num [1:945] 0.018 0.026 0.023 0.024  ...
$ Type of Days            : chr [1:945] "All days" "All days" "All days" ...
$ Age Group               : chr [1:945] "15 years and over" "15 years and over" ...
$ Activity                : chr [1:945] "Sleeping" "Sleeping" "Sleeping" ...
$ Sex                     : chr [1:945] "Both" "Both" "Both" ...

textOutput

Zet eerst textOutput in de UI

ui <- fluidPage(
  titlePanel("Sleeping habits in America"), 
  textOutput("textlabel"))

server <- function(input, output) {
}

shinyApp(ui, server)

renderText

Om de tekst te renderen, zet renderText in de server
We hebben de notatie output$ nodig

ui <- fluidPage(
  titlePanel("Sleeping habits in America"), 
  textOutput("textlabel"))

server <- function(input, output) {
  output$textlabel <- renderText("Sleep deprivation is a serious health issue 
                                in many major cities around the world.")
}


shinyApp(ui, server)

textOutput gerenderd

demo tekstoutput zonder inputinteracties.

textOutput met interacties

Om interacties tussen inputs en outputs te krijgen, roepen we inputs aan met input$

input$<type>

textOutput met interacties

Als voorbeeld nemen we een tekstinput.

ui <- fluidPage(
  titlePanel("Sleeping habits in America"), 

  textInput("textlabel", 
            "Tell me your name", 
            value = "", 
            placeholder = "Don"),

  textOutput("textoutlabel"))

server <- function(input, output) {
  output$textoutlabel <- renderText(paste0("Hello ",

                                       input$textlabel,

                                       "Sleep deprivation is a serious health issue 
                                        in many major cities around the world."))
}
shinyApp(ui, server)

textOutput met interacties

tekstoutput met interacties.

plotOutput

Zet plotOutput() in de UI

ui <- fluidPage(
  titlePanel("Sleeping habits in America"), 

  plotOutput("plotlabel"))


server <- function(input, output) {
}

shinyApp(ui, server)

renderPlot

In server() plaatsen we renderPlot()

ui <- fluidPage(
  titlePanel("Sleeping habits in America"), 
  plotOutput("plotlabel"))

server <- function(input, output) {

  output$plotlabel <- renderPlot({
    ggplot(sleep) + 
      geom_histogram(aes(x = `Avg hrs per day sleeping`))
    })

}

shinyApp(ui, server)

plotOutput gerenderd

plotoutput-demo.

plotOutput met selectInput

Gebruikersinputs kunnen verschillende resultaten opleveren

ui <- fluidPage(
  titlePanel("Sleeping habits in America"), 
  selectInput("selectlabel", 
              "Select an option",
              choices = c("Histogram", "Boxplot")),
  plotOutput("plotlabel"))

plotOutput met selectInput

server <- function(input, output) {
  output$plotlabel <- renderPlot({
    if (input$selectlabel == "Histogram"){

      ggplot(sleep) + 
        geom_histogram(aes(x = `Avg hrs per day sleeping`))

      }
    else if (input$selectlabel == "Boxplot"){

      ggplot(sleep) + 
        geom_boxplot(aes(x = `Avg hrs per day sleeping`))

  }
  })
}

shinyApp(ui, server)

plotOutput met selectInput

Demo van plotOutput met selectInput

plotOutput met sliderInput

Nog een voorbeeld met sliderInput

ui <- fluidPage(
  titlePanel("Sleeping habits in America"), 

  sliderInput("sliderlabel", 
              "Average hours of sleep",
              min = 7.5,
              max = 11,
              value = c(7.5, 11),
              step = 0.02),

  plotOutput("plotlabel"))
server <- function(input, output) {

  output$plotlabel <- renderPlot({
    filter(sleep, 
           `Avg hrs per day sleeping` >= input$sliderlabel[1],
           `Avg hrs per day sleeping` <= input$sliderlabel[2]) %>%
      ggplot() +
      geom_boxplot(aes(x=`Avg hrs per day sleeping`))
  })

}
shinyApp(ui, server)

plotOutput met sliderInput

Demo van plotOutput met sliderInput

Iconen in shiny

shiny bevat ook iconen die je in een shinyApp kunt gebruiken

Enkele iconen in shiny

¹ https://fontawesome.com/icons

Iconen in shiny: een voorbeeld

Gebruik icon("...")
Denk aan een eerder voorbeeld
Bijv. icon("bed")

ui <- fluidPage(
  titlePanel("Sleeping habits in America"), 
  sliderInput("sliderlabel",

              list(icon("bed"),

              "Select an option:"),
              min = 7.5,
              max = 11,
              value = c(7.5, 11),
              step = 0.02),
  plotOutput("plotlabel"))

server <- function(input, output) {
  output$plotlabel <- renderPlot({
    filter(sleep, 
           `Avg hrs per day sleeping` >= input$sliderlabel[1],
           `Avg hrs per day sleeping` <= input$sliderlabel[2]) %>%
      ggplot() +
      geom_boxplot(aes(x=`Avg hrs per day sleeping`))
  })
}

shinyApp(ui, server)

Gerenderde app met icoon

Icoon-demo

Laten we oefenen!

Dashboards bouwen met shinydashboard

Typen output

Output- en render-functies

Voorbeeld: slaaponderzoek

textOutput

renderText

textOutput gerenderd

textOutput met interacties

textOutput met interacties

textOutput met interacties

plotOutput

renderPlot

plotOutput gerenderd

plotOutput met selectInput

plotOutput met selectInput

plotOutput met selectInput

plotOutput met sliderInput

plotOutput met sliderInput

Iconen in shiny

Iconen in shiny: een voorbeeld

Geren­derde app met icoon

Laten we oefenen!

Gerenderde app met icoon