gradient bug fix

loosolab · Dec 5, 2019 · 3d509d6 · 3d509d6
1 parent 7213130
commit 3d509d6
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/load_meta_functions.R b/R/load_meta_functions.R
@@ -70,9 +70,9 @@ flatten_json <- function(json)
   assertive.types::assert_is_list(json)
 
   group_count <- group_count(json)
-  for(group_numb in group_count)
+  for(group_numb in seq_len(group_count))
   {
-    if(!is.na(json [["Group"]][[group_numb]][["Instruments"]][["Thermo EASY-nLC"]][["Method"]][["Gradient"]][[group_numb]]["Time [mm:ss]"]))
+    if(is.element("Gradient", names(json [["Group"]][[group_numb]][["Instruments"]][["Thermo EASY-nLC"]][["Method"]])))
     {
       time <- c()
       duration <- c()