Commit 82b717ff authored by Jean-Karim Heriche's avatar Jean-Karim Heriche

Can save and restore input choices for a given input data file.

parent 6a7260c1
......@@ -407,7 +407,9 @@ server <- function(input, output, session) {
## Save current choices to a file
output$saveConfigFile <- downloadHandler(
filename = function() { paste0("IDE-saved_input_choices-", Sys.Date(), ".rds") },
filename = function() {
data.file <- tools::file_path_sans_ext(basename(input$datafile$name))
paste0("IDE-saved_input_choices-", data.file, "-", Sys.Date(), ".rds") },
content = function(file) {
## Collect current choices
rv$inputChoices[["imgRoot"]] <- parseDirPath(roots, input$imgRoot)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment