Kendi kelimelerini kullan
textAreaInput(), kullanıcıların tipik bir textInput()'ın izin verdiğinden çok daha uzun metin girmesine olanak tanımak istediğinde kullanışlıdır. Metin alanları birden fazla satıra yayılır, dikey bir kaydırma çubuğuna sahiptir ve kaç satırın görüneceğini belirleyebilen bir rows parametresi vardır.
Daha büyük olmaları dışında, metin alanı girdileri diğer tüm açılardan metin girdilerine çok benzer şekilde davranır.
Bu egzersiz
Vaka Çalışmaları: R ile Shiny Kullanarak Web Uygulamaları Geliştirme
kursunun bir parçasıdırEgzersiz talimatları
Görevin, kullanıcının kendi kelimeleriyle bir kelime bulutu oluşturmasına izin vermek için bir metin alanı girişi eklemek. Özellikle:
- inputId'si "text" ve etiketi "Enter text" olan, 7 satırlık bir metin alanı girişi ekle.
- Kelime bulutu için
datakaynağı olarakartofwarkitabı yerine metin alanının değerini kullan (satır 20).
Uygulamalı interaktif egzersiz
Bu örnek kodu tamamlayarak bu egzersizi bitirin.
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)