print messages to find lag in cropped plot

mzarowka · Mar 20, 2024 · 9c0e379 · 9c0e379
1 parent 36e9ecd
commit 9c0e379
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/app.R b/R/app.R
@@ -858,7 +858,9 @@ run_core <- function(autoSave = TRUE){
 
     zoomedPlot <- reactive({
       if (!is.null(input$plotBrush)){
+        print("cropping zoomedPlot...")
         a1 <- terra::crop(x=coreImage(),y=terra::ext(c(x_range(input$plotBrush)[1], x_range(input$plotBrush)[2], y_range(input$plotBrush)[1], y_range(input$plotBrush)[2])))
+        print("plotting zoomedPlot...")
         suppressWarnings(terra::plotRGB(x = a1, r = RGBlayers()[1], g = RGBlayers()[2], b = RGBlayers()[3], stretch = "hist"))
       } else {
         terra::plotRGB(x = coreImage(), r = RGBlayers()[1], g = RGBlayers()[2], b = RGBlayers()[3], stretch = "hist")
@@ -867,7 +869,10 @@ run_core <- function(autoSave = TRUE){
 
     output$cropped_plot <- renderPlot({
 
+      print("cropping cropped_plot...")
+
       a1 <- terra::crop(x=coreImage(),y=terra::ext(allParams$cropImage))
+      print("plotting cropped_plot...")
       suppressWarnings(terra::plotRGB(x = a1, r = RGBlayers()[1], g = RGBlayers()[2], b = RGBlayers()[3], stretch = "hist"))
 
       if (sum(complete.cases(analysisRegions$DT))>0){