Merge branch 'main' of https://github.com/Risk-Team/AquaCropPlotter

AquaCropPlotter/inst/shinyapp/app.R

@@ -1567,7 +1567,8 @@ server <- function(input, output, session) {
 
     ggplot_plugin <- reactive({
       req(data_prm_combined_plot_rename$data)
-      withProgress(message = "Plotting", value = 0.7,{
+      showModal(modalDialog(title = "Processing data...", "Please wait while the data is being processed. ", easyClose=FALSE, footer = NULL))
+
       #initial plot according to selected coloring and group variable
       if(length(input$shape_var) > 0 & length(input$col_var) > 0 & length(input$linetype_var) > 0){
         p <- ggplot(data = data_prm_combined_plot_rename$data, aes(x = .data[[input$x_var]], y = .data[[input$y_var]], group = interaction(.data[[input$shape_var]], .data[[input$col_var]], .data[[input$linetype_var]]), col = .data[[input$col_var]], fill = .data[[input$col_var]], shape = .data[[input$shape_var]], linetype = .data[[input$linetype_var]]))
@@ -1705,7 +1706,8 @@ server <- function(input, output, session) {
         p <- p + labs(title = paste(input$title_label))
       }
       print(p)
-      })
+
+      removeModal()
     })
 
     #adjust default plot size according to facets

README.md

@@ -2,7 +2,7 @@
 
 ## Status
 
-AquaCropPlotter is currently going through some major updates
+**AquaCropPlotter is currently going through major updates but it can still be used. The app will be officially launched in October/November 2023.**
 
 ## Background
 AquaCrop is the crop-water productivity model developed by the NSL division at FAO. Currently, AquaCrop produces output txt files that can be difficult to process and visualize. We intend to fill that gap by developing an R Shiny app that would automatically read the output simulations of AquaCrop and produce meaningfull plots and statistics that the user can automatically embed into reports.