Update A_Fiber_Area.R

RRobert92 · May 19, 2020 · 2db0815 · 2db0815
1 parent 3742756
commit 2db0815
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/ASGA/bin/Packages/Analysis/A_Fiber_Area.R b/ASGA/bin/Packages/Analysis/A_Fiber_Area.R
@@ -71,6 +71,7 @@ A_Fiber_Area <- function (input, output, session){
     )
     Sys.sleep(0.1)
   }
+  closeSweetAlert(session = session)
 
   Fiber_area_P1 <- get(paste(colnames(Segments)[which(colnames(Segments) == "Pole1_00")], 
                              "fiber", 
@@ -90,10 +91,13 @@ A_Fiber_Area <- function (input, output, session){
     },
     error = function(e){})
 
+    tryCatch({
     N_density_P1 <- rbind(N_density_P1,
                           get(paste(colnames(Segments)[i], 
                                     "NDensity", 
                                     sep = "_")))
+  },
+  error = function(e){})
   }
 
   Fiber_area_P1 <<- Fiber_area_P1
@@ -159,6 +163,8 @@ A_Fiber_Area <- function (input, output, session){
     Sys.sleep(0.1)
   }
 
+  closeSweetAlert(session = session)
+
   Fiber_area_P2 <- get(paste(colnames(Segments)[which(colnames(Segments) == "Pole2_00")], 
                             "fiber", 
                             sep = "_"))
@@ -175,6 +181,7 @@ A_Fiber_Area <- function (input, output, session){
                                        sep = "_")))
     },
     error = function(e){})
+
     tryCatch({
       N_density_P2 <- rbind(N_density_P2,
                             get(paste(colnames(Segments)[i],