Menggabungkan semua sumber kata

Studi Kasus: Membangun Aplikasi Web dengan Shiny di R

Dean Attali

Shiny Consultant

Menggabungkan semua sumber kata

3 sumber data untuk word cloud
- Objek teks: artofwar
- Teks pengguna: textAreaInput()
- Berkas teks: fileInput()
Langkah berikutnya: izinkan semuanya sekaligus
- Tombol radio untuk memilih sumber kata

Tombol radio - tinjauan

radioButtons(
    "time_of_day", "Pilih waktu favorit Anda",
    choices = c("Pagi", "Siang", "Malam"),
    selected = "Siang"
)

Tombol radio - lanjutan

radioButtons(
    "time_of_day", "Pilih waktu favorit Anda",
    choices = c("Saya orang pagi!" = "Morning",
                "Suka waktu siang"  = "Afternoon",
                "Saya begadang!"    = "Evening"),
    selected = "Afternoon"
)

str(input$time_of_day)

chr "Afternoon"

Panel bersyarat

Tampilkan/sembunyikan elemen UI berdasarkan nilai input

conditionalPanel(condition, ...)

condition mirip kode R, tetapi input$<id> diganti input.<id>
... adalah UI apa pun

Panel bersyarat

ui <- fluidPage(
  radioButtons("time_of_day",
               "Pilih waktu favorit Anda",
               ...),

  plotOutput("morning_only_plot")
)

ui <- fluidPage(
  radioButtons("time_of_day",
               "Pilih waktu favorit Anda",
               ...),

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

Ayo berlatih!

Studi Kasus: Membangun Aplikasi Web dengan Shiny di R