Catch mtx spillover in cyto_spillover_edit().

DillonHammill · Feb 12, 2024 · 4082e42 · 4082e42
1 parent 743229d
commit 4082e42
Showing 1 changed file with 11 additions and 3 deletions.
diff --git a/R/cyto_spillover_edit.R b/R/cyto_spillover_edit.R
@@ -1148,9 +1148,17 @@ spillEditServer <- function(id,
       } else {
         # SPILLOVER CSV FILENAME
         if(is.character(spill())) {
-          sp <- read_from_csv(spill(),
-                              data.table = FALSE)
-          # SPILLOVER MATRIX SUPPLIED
+          if(file_ext(spill()) %in% "mtx") {
+            sp <- read_from_mtx(
+              spill()
+            )
+          } else {
+            sp <- read_from_csv(
+              spill(),
+              data.table = FALSE
+            )
+          }
+        # SPILLOVER MATRIX SUPPLIED
         } else {
           sp <- spill()
         }