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 merupakan bagian dari kursus
Studi Kasus: Membangun Aplikasi Web dengan Shiny di R
Instruksi latihan
Tambahkan input berkas ke aplikasi Shiny dengan ID input "file" dan label "Select a file".
Latihan interaktif langsung praktik
Cobalah latihan ini dengan melengkapi kode contoh ini.
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)