Make sure wl are sorted by increasing order in parse_generic()

fix #30
ropensci · Nov 1, 2020 · 8a00507 · 8a00507
1 parent b71385e
commit 8a00507
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/parse_generic.R b/R/parse_generic.R
@@ -95,5 +95,7 @@ lr_parse_generic <- function(filename, decimal = ".", sep = NULL) {
                      "scope" = NA_real_,
                      "processed" = rawsplit[, dim(rawsplit)[2]])
 
+  data <- data[order(data$wl), ]
+
   return(list(data, metadata))
 }