diff --git a/R/shiny-ui-base.R b/R/shiny-ui-base.R index 1c70b78dc1b6c036573d7db849482b2ff9eb5f64..e119d43b853b109f7c933be65670872aa42c5255 100644 --- a/R/shiny-ui-base.R +++ b/R/shiny-ui-base.R @@ -1200,36 +1200,6 @@ mk_shinyscreen_server <- function(projects,init) { }) - observeEvent(input$state_file_load_b,{ - filters <- matrix(c("RDS files", ".rds", - "YAML config files", ".yaml", - "All files", "*"), - 3, 2, byrow = TRUE) - fn <- tcltk::tk_choose.files(filters=filters, - multi = F) - - message("(config) Loading state from: ", paste(fn,collapse = ",")) - shinymsg(paste("Loading state from: ", fn,"Please wait.",sep="\n")) - fn <- if (length(fn)>0 && nchar(fn[[1]])>0) fn else "" - - if (nchar(fn) > 0) { - if (grepl("yaml",fn)) { - state <- new_state_fn_conf(fn) - conf <- state$conf - update_gui(conf,session=session) - } else { - state <- readRDS(file=fn) - z <- shinyscreen::merge2rev(rvs$m,lst = state) - eval(z) - update_gui(rvs$m$conf, session=session) - } - - } - shinymsg("Loading state has been completed.") - }) - - - observeEvent(input$plot_ext, { rvs$m$conf$figures$ext <- input$plot_ext }) diff --git a/inst/rmd/app.Rmd b/inst/rmd/app.Rmd index 0547f16fd6325faa18c84860a456cad6889c87c6..3c7104d826d71aae6ff894b43d7b70e5bcf6e678 100644 --- a/inst/rmd/app.Rmd +++ b/inst/rmd/app.Rmd @@ -456,24 +456,6 @@ DT::dataTableOutput("comp_table") DT::dataTableOutput("setid_table") ``` -# Save and Restore - -Shinyscreen can start from either a previously saved _state_ file (in -RDS format), or from a _YAML_ config file. States saved using GUI can -also be used from the script. - -```{r, echo=FALSE} -actionButton(inputId = "state_file_load_b", - label= "Restore project") - -``` - -```{r, echo=FALSE} -actionButton(inputId = "state_file_save_b", - label= "Save project") - -``` - # Extract Data and Prescreen Shinyscreen can perform spectral extraction based on the desired settings(_ppm_,_retention time window_) under the _Extraction_ tab. The extracted spectra can be subjected to prescreening based on the settings defined under the _prescreening_ tab.