This program allows fort he selection of many files from a folder. Is there any way to deselect the selected files? For example, I select some file I do not really want to select and I need to undo the selection.
library(shiny)
library(reprex)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
tags$style(type='text/css',
".selectize-dropdown-content{
height: 1000px;
width: 800px;
background-color: #b0c4de;
font-size: 12px; line-height: 12px;
}"),
setwd("~/Development/Dir/OUT/openMS/INPUT_DATA/"),
selectInput('selectfile','Select File', choice = list.files(),multiple = TRUE),
textOutput('fileselected'),
setwd("~/Development/Dir")
),
mainPanel(
)
)
)
server <- function(input, output){
output$fileselected <- renderText({
paste0('You have selected: ', input$selectfile)
})
}
shinyApp(ui = ui, server = server)