Unggah berkas teks (ui)
Daripada mengetik teks panjang ke dalam kotak, sering kali lebih praktis mengunggah berkas teks jika teksnya sangat panjang.
Mengunggah berkas ke aplikasi Shiny dilakukan menggunakan fileInput().
Latihan ini adalah bagian dari kursus
Studi Kasus: Membangun Aplikasi Web dengan Shiny di R
Petunjuk latihan
Tambahkan input berkas ke aplikasi Shiny dengan ID input "file" dan label "Select a file".
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
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)