Tải lên một tệp văn bản (ui)
Thay vì gõ một đoạn văn bản rất dài vào ô nhập, sẽ tiện hơn nếu bạn tải lên một tệp văn bản khi nội dung quá dài.
Tải tệp lên một ứng dụng Shiny được thực hiện bằng fileInput().
Bài tập này là một phần của khóa học
Nghiên cứu tình huống: Xây dựng ứng dụng web với Shiny trong R
Hướng dẫn bài tập
Thêm một đầu vào kiểu tệp vào ứng dụng Shiny với ID đầu vào là "file" và nhãn là "Select a file".
Bài tập tương tác thực hành trực tiếp
Hãy thử làm bài tập này bằng cách hoàn thành đoạn mã mẫu này.
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)