Aplicație Shiny cu word cloud
Ai la dispoziție un set de date exemplu numit artofwar, care conține textul integral al cărții Arta Războiului. Poți explora textul rulând head(artofwar) sau tail(artofwar) pentru a vedea primele și ultimele versete din carte.
Așa cum s-a menționat în videoclip, deoarece word cloud-urile nu sunt un tip de rezultat pe care l-ai mai întâlnit, ele necesită o nouă pereche de funcții de rezultat și randare: wordcloud2Output() și renderWordcloud2(). Aceste funcții sunt disponibile din pachetul wordcloud2.
Acest exercițiu face parte din cursul
Studii de caz: Construirea aplicațiilor web cu Shiny în R
Instrucțiuni pentru exercițiu
Funcția create_wordcloud(), setul de date artofwar și toate pachetele necesare sunt disponibile în spațiul tău de lucru.
- Adaugă un placeholder pentru rezultatul word cloud-ului în UI, cu un outputId de
cloud. - Randează obiectul word cloud și atribuie-l elementului corespunzător din lista
output(linia 11).
Altfel spus, create_wordcloud() este o funcție definită de noi pentru tine. Nu o vei putea rula în propriul RStudio de pe calculatorul tău. Dacă vrei să o explorezi, scrie create_wordcloud în consolă.
Exercițiu interactiv practic
Încearcă acest exercițiu completând acest cod de exemplu.
# Define UI for the application
ui <- fluidPage(
h1("Word Cloud"),
# Add the word cloud output placeholder to the UI
___(outputId = "cloud")
)
# Define the server logic
server <- function(input, output) {
# Render the word cloud and assign it to the output list
output$___ <- ___({
# Create a word cloud object
create_wordcloud(artofwar)
})
}
# Run the application
shinyApp(ui = ui, server = server)