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

อัปโหลดไฟล์ข้อความ (ui)

แทนที่จะพิมพ์ข้อความยาว ๆ ลงในกล่อง การอัปโหลดไฟล์ข้อความจะสะดวกกว่ามากหากข้อความมีความยาวมาก

การอัปโหลดไฟล์ไปยัง Shiny app ทำได้โดยใช้ fileInput()

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

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

ดูคอร์ส

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

เพิ่ม file input ให้กับ Shiny app โดยกำหนด input ID เป็น "file" และ label เป็น "Select a file"

แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ

ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์

ui <- fluidPage(
  h1("Word Cloud"),
  sidebarLayout(
    sidebarPanel(
      textAreaInput("text", "Enter text", rows = 7),
      # Add a file 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({
    create_wordcloud(input$text, num_words = input$num,
                     background = input$col)
  })
}

shinyApp(ui = ui, server = server)
แก้ไขและรันโค้ด