Switch if/else order

ropensci · Jun 23, 2024 · 2efb0f3 · 2efb0f3
1 parent d418df2
commit 2efb0f3
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/R/get_spec.R b/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,11 @@ 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), ]