Łączenie wszystkich źródeł słów

Studia przypadków: tworzenie aplikacji webowych w Shiny w R

Dean Attali

Shiny Consultant

Łączenie wszystkich źródeł słów

3 źródła danych dla chmury słów
- Obiekt tekstowy: artofwar
- Tekst użytkownika: textAreaInput()
- Plik tekstowy: fileInput()
Następny krok: umożliwienie użycia wszystkich
- Przyciski opcji do wyboru źródła słów

Przyciski opcji – przypomnienie

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

Przyciski opcji – zaawansowane

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"

Panele warunkowe

Pokazywanie/ukrywanie elementów UI na podstawie wartości wejściowej

conditionalPanel(condition, ...)

condition jest podobny do kodu R, ale input$<id> zastępuje się przez input.<id>
... to dowolny element UI

Panele warunkowe

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")
  )
)

Czas na ćwiczenia!

Studia przypadków: tworzenie aplikacji webowych w Shiny w R