เริ่มต้นใช้งานเริ่มต้นใช้งานได้ฟรี

ใช้คำของคุณเอง

textAreaInput() มีประโยชน์เมื่อต้องการให้ผู้ใช้กรอกข้อความที่ยาวกว่าที่ textInput() ทั่วไปรองรับ พื้นที่กรอกข้อความแบบ textarea ครอบคลุมหลายแถวและมี scrollbar แนวตั้ง รวมถึงมีพารามิเตอร์ rows สำหรับกำหนดจำนวนแถวที่มองเห็นได้

นอกจากขนาดที่ใหญ่กว่าแล้ว textarea input มีพฤติกรรมเหมือนกับ text input ทุกประการ

แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร

กรณีศึกษา: การสร้างเว็บแอปพลิเคชันด้วย Shiny ใน R

ดูคอร์ส

คำแนะนำการฝึกหัด

งานของคุณคือเพิ่ม textarea input เพื่อให้ผู้ใช้สร้าง word cloud จากคำของตัวเองได้ โดยเฉพาะอย่างยิ่ง:

  • เพิ่ม text area input ที่มี 7 แถว โดยกำหนด inputId เป็น "text" และ label เป็น "Enter text"
  • ใช้ค่าจาก text area เป็นแหล่ง data สำหรับ word cloud แทนที่จะใช้หนังสือ artofwar (บรรทัดที่ 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)
แก้ไขและรันโค้ด