Завантаження текстового файла (ui)
Замість того щоб набирати довгий текст у полі введення, зручніше завантажити текстовий файл, якщо текст дуже великий.
Завантаження файлів у Shiny здійснюється за допомогою fileInput().
Ця вправа є частиною курсу
Case Studies: створення вебзастосунків із Shiny в R
Інструкції до вправи
Додайте в застосунок Shiny поле для вибору файла з ідентифікатором вводу "file" і міткою "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)