Gunakan kata-kata Anda sendiri
textAreaInput() berguna ketika Anda ingin memungkinkan pengguna memasukkan teks yang jauh lebih panjang daripada yang diizinkan oleh textInput() biasa. Textarea mencakup beberapa baris dan memiliki bilah gulir vertikal, serta parameter rows yang dapat menentukan berapa banyak baris yang terlihat.
Selain ukurannya yang lebih besar, input textarea berperilaku sangat mirip dengan input teks dalam hal lainnya.
Latihan ini adalah bagian dari kursus
Studi Kasus: Membangun Aplikasi Web dengan Shiny di R
Petunjuk latihan
Tugas Anda adalah menambahkan input textarea agar pengguna dapat membuat word cloud menggunakan kata-kata mereka sendiri. Secara khusus:
- Tambahkan input area teks berisi 7 baris dengan inputId "text" dan label "Enter text".
- Gunakan nilai area teks sebagai sumber
datauntuk word cloud, alih-alih bukuartofwar(baris 20).
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
ui <- fluidPage(
h1("Word Cloud"),
sidebarLayout(
sidebarPanel(
# Add a textarea input
___,
numericInput("num", "Maximum number of words",
value = 100, min = 5),
colourInput("col", "Background color", value = "white")
),
mainPanel(
wordcloud2Output("cloud")
)
)
)
server <- function(input, output) {
output$cloud <- renderWordcloud2({
# Use the textarea's value as the word cloud data source
create_wordcloud(data = ___, num_words = input$num,
background = input$col)
})
}
shinyApp(ui = ui, server = server)