시작하기무료로 시작하기

직접 입력한 단어 사용하기

textAreaInput()는 일반적인 textInput()으로는 입력하기 어려운 더 긴 텍스트를 사용자에게 입력받을 때 유용해요. 텍스트 영역은 여러 행을 차지하고 세로 스크롤바가 있으며, 보이는 행 수를 정하는 rows 매개변수를 제공합니다.

크기만 클 뿐, 텍스트 영역 입력은 그 밖의 모든 면에서 텍스트 입력과 거의 동일하게 동작해요.

이 연습은 강의의 일부입니다

사례 연구: R의 Shiny로 웹 애플리케이션 만들기

강의 보기

연습 안내

사용자가 직접 입력한 단어로 워드 클라우드를 만들 수 있도록 텍스트 영역 입력을 추가해 보세요. 구체적으로는 다음을 수행합니다.

  • 7행을 포함하고 inputId가 "text", 라벨이 "Enter text"인 텍스트 영역 입력을 추가하세요.
  • artofwar 책 대신 텍스트 영역의 값을 워드 클라우드의 data 소스로 사용하세요(20행).

실습형 인터랙티브 연습

이 예제를 이 샘플 코드를 완성하여 풀어보세요.

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)
코드 편집 및 실행