feat: avoid logging repeating errors

bigomics · Sep 24, 2024 · ef31d0c · ef31d0c
1 parent a5ef050
commit ef31d0c
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/components/app/R/server.R b/components/app/R/server.R
@@ -1068,6 +1068,19 @@ app_server <- function(input, output, session) {
 
     err_traceback <- paste(err_traceback, collapse = "\n")
 
+    # Skip if error is repeated
+    # Initialize variable as well
+    if (!exists("err_traceback_prev")) {
+      err_traceback_prev <<- ""
+    }
+    if (err_traceback == err_traceback_prev) {
+      message("EPAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAaa")
+      return()
+    }
+
+    # Save globally last error
+    err_traceback_prev <<- err_traceback
+
     pgx_name <- NULL
     user_email <- auth$email
     user_tab <- input$nav