Kom igångKom igång gratis

Använd egna ord

Funktionen textAreaInput() är användbar när du vill låta användaren skriva in betydligt längre text än vad en vanlig textInput() tillåter. Textområden sträcker sig över flera rader och har en vertikal rullningslist, samt en parameter rows som styr hur många rader som visas.

Förutom att de är större fungerar textområdesinmatningar i stort sett på samma sätt som vanliga textinmatningar.

Den här övningen är en del av kursen

Fallstudier: Bygg webbapplikationer med Shiny i R

Visa kurs

Övningsinstruktioner

Din uppgift är att lägga till ett textområde som låter användaren skapa ett ordmoln med egna ord. Gör följande:

  • Lägg till ett textområde med 7 rader, med inputId "text" och etiketten "Enter text".
  • Använd textområdets värde som data-källa för ordmolnet i stället för boken artofwar (rad 20).

Interaktiv övning med praktiskt arbete

Testa den här övningen genom att slutföra den här exempelkoden.

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)
Redigera och kör kod