Combinarea tuturor surselor de cuvinte

Studii de caz: Construirea aplicațiilor web cu Shiny în R

Dean Attali

Shiny Consultant

Combinarea tuturor surselor de cuvinte

3 surse de date pentru norul de cuvinte
- Obiect text: artofwar
- Text introdus de utilizator: textAreaInput()
- Fișier text: fileInput()
Pasul următor: permiterea tuturor împreună
- Butoane radio pentru selectarea sursei

Butoane radio - recapitulare

radioButtons(
    "time_of_day", "Choose your favorite time of day",
    choices = c("Morning", "Afternoon", "Evening"),
    selected = "Afternoon"
)

Butoane radio - avansat

radioButtons(
    "time_of_day", "Choose your favorite time of day",
    choices = c("I'm a morning person!" = "Morning",
                "Love my afternoons"    = "Afternoon",
                "Night owl here!"       = "Evening"),
    selected = "Afternoon"
)

str(input$time_of_day)

chr "Afternoon"

Panouri condiționale

Afișarea/ascunderea elementelor UI în funcție de valoarea intrării

conditionalPanel(condition, ...)

condition este similar cu codul R, dar input$<id> este înlocuit cu input.<id>
... reprezintă orice element UI

Panouri condiționale

ui <- fluidPage(
  radioButtons("time_of_day",
               "Choose your favorite time of day",
               ...),

  plotOutput("morning_only_plot")
)

ui <- fluidPage(
  radioButtons("time_of_day",
               "Choose your favorite time of day",
               ...),

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

Să exersăm!

Studii de caz: Construirea aplicațiilor web cu Shiny în R