Switch if/else order

Author: Bisaloo

R/get_spec.R

@@ -80,11 +80,7 @@ lr_get_spec <- function(where = getwd(), ext = "txt", lim = c(300, 700),
 
   message(nb_files, " files found; importing spectra:")
 
-  if (!interpolate) {
-    gsp <- function(f) {
-      dispatch_parser(f, decimal = decimal, sep = sep)[[1]]
-    }
-  } else {
+  if (interpolate) {
     gsp <- function(f) {
       df <- dispatch_parser(f, decimal = decimal, sep = sep)[[1]]
 
@@ -98,6 +94,12 @@ lr_get_spec <- function(where = getwd(), ext = "txt", lim = c(300, 700),
                 call. = FALSE)
         return(NULL)
       }
+    }
+  } else {
+    gsp <- function(f) {
+      dispatch_parser(f, decimal = decimal, sep = sep)[[1]]
+    }
+  }
 
       df <- df[c(min(bounds) - 1, bounds, max(bounds) + 1), ]