inst/shinyApp/SHINY.RFATE_SERVER.panel3.R

In MayaGueguen/RFate: Vegetation modelling with the FATE model

####################################################################

get_path.run = eventReactive(input$run.folder.simul, {
  if (input$run.folder.simul > 0)
  {
    path = choose.dir(default = readDirectoryInput(session, 'run.folder.simul'))
    updateDirectoryInput(session, 'run.folder.simul', value = path)
    return(path)
  }
})

####################################################################

observeEvent(input$run.folder.simul, {
  if (input$run.folder.simul > 0)
  {
    names.simulParam = list.files(path = paste0(get_path.run(), "/PARAM_SIMUL")
                                  , pattern = ".txt$"
                                  , all.files = FALSE
                                  , full.names = TRUE)
    names.simulParam = basename(names.simulParam)
    if (length(names.simulParam) > 0)
    {
      updateSelectInput(session
                        , inputId = "run.simulParam"
                        , choices = names.simulParam
                        , selected = names.simulParam[1])
      shinyjs::enable("run.simulParam")
    } else
    {
      shinyjs::reset("run.simulParam")
      shinyjs::disable("run.simulParam")
    }
  } else
  {
    shinyjs::reset("run.simulParam")
    shinyjs::disable("run.simulParam")
  }
})

####################################################################

observeEvent(input$run.copy, {
  if (input$run.folder.simul > 0 && nchar(input$run.simulParam) > 0)
  {
    if(!is.null(input$run.executable))
    {
      showModal(modalDialog(HTML(paste0("Copying <em>", basename(get_path.run()), "</em> folder..."))
                            , title = HTML("Run <code>FATE</code> simulation")
                            , footer = NULL))
      Sys.sleep(3)
      system(paste0("scp -r ", get_path.run(), " ./"))
      system(paste0("scp ", input$run.executable$datapath, " FATE_executable.exe"))
      removeModal()
    }
  }
})

####################################################################

observeEvent(input$run, {
  if (input$run.folder.simul > 0 && nchar(input$run.simulParam) > 0)
  {
    if (file.exists("FATE_executable.exe") &&
        dir.exists(basename(get_path.run())))
    {
      showModal(modalDialog(HTML(paste0("Running simulation with :
                                        <ul>
                                        <li><strong>folder :</strong> ", basename(get_path.run()),"</li>
                                        <li><strong>simulation parameter file :</strong> ", input$run.simulParam, "</li>
                                        </ul>"))
                            , title = HTML("Run <code>FATE</code> simulation")
                            , footer = NULL))
      Sys.sleep(3)
      removeModal()
    }
  }
})