Unire tutte le fonti di parole

Casi di studio: creare applicazioni web con Shiny in R

Dean Attali

Shiny Consultant

Unire tutte le fonti di parole

3 fonti dati per la word cloud
- Oggetto di testo: artofwar
- Testo utente: textAreaInput()
- File di testo: fileInput()
Prossimo passo: abilitarle insieme
- Radio button per scegliere la fonte

Radio button - ripasso

radioButtons(
    "time_of_day", "Scegli il tuo momento del giorno preferito",
    choices = c("Mattina", "Pomeriggio", "Sera"),
    selected = "Pomeriggio"
)

Radio button - avanzato

radioButtons(
    "time_of_day", "Scegli il tuo momento del giorno preferito",
    choices = c("Sono una persona mattiniera!" = "Morning",
                "Adoro i pomeriggi"          = "Afternoon",
                "Nottambulo qui!"            = "Evening"),
    selected = "Afternoon"
)

str(input$time_of_day)

chr "Afternoon"

Pannelli condizionali

Mostra/nascondi elementi UI in base all'input

conditionalPanel(condition, ...)

condition è simile a R, ma input$<id> diventa input.<id>
... può essere qualsiasi UI

Pannelli condizionali

ui <- fluidPage(
  radioButtons("time_of_day",
               "Scegli il tuo momento del giorno preferito",
               ...),

  plotOutput("morning_only_plot")
)

ui <- fluidPage(
  radioButtons("time_of_day",
               "Scegli il tuo momento del giorno preferito",
               ...),

  conditionalPanel(
    condition = "input.time_of_day == 'Morning'",
    plotOutput("morning_only_plot")
  )
)

Passiamo alla pratica !

Casi di studio: creare applicazioni web con Shiny in R