diff --git a/R/load_meta_functions.R b/R/load_meta_functions.R index 03ff1a9..25ec555 100644 --- a/R/load_meta_functions.R +++ b/R/load_meta_functions.R @@ -74,22 +74,25 @@ flatten_json <- function(json) { if(is.element("Gradient", names(json [["Group"]][[group_numb]][["Instruments"]][["Thermo EASY-nLC"]][["Method"]]))) { - time <- c() - duration <- c() - flow <- c() - mixture <- c() - for(i in json [["Group"]][[group_numb]][["Instruments"]][["Thermo EASY-nLC"]][["Method"]][["Gradient"]]) + if(!is.na(gradient_data)) { - time <- c(time, i["Time [mm:ss]"][[1]]) - duration <- c(duration, i["Duration [mm:ss]"][[1]]) - flow <- c(flow, i["Flow [nl/min]"][[1]]) - mixture <- c(mixture, i["Mixture [%B]"][[1]]) + time <- c() + duration <- c() + flow <- c() + mixture <- c() + for(i in json [["Group"]][[group_numb]][["Instruments"]][["Thermo EASY-nLC"]][["Method"]][["Gradient"]]) + { + time <- c(time, i["Time [mm:ss]"][[1]]) + duration <- c(duration, i["Duration [mm:ss]"][[1]]) + flow <- c(flow, i["Flow [nl/min]"][[1]]) + mixture <- c(mixture, i["Mixture [%B]"][[1]]) + } + json [["Group"]][[group_numb]][["Instruments"]][["Thermo EASY-nLC"]][["Method"]][["Gradient"]] <- NULL + json [["Group"]][[group_numb]][["Instruments"]][["Thermo EASY-nLC"]][["Method"]][["Gradient"]][["Time [mm:ss]"]] <- time + json [["Group"]][[group_numb]][["Instruments"]][["Thermo EASY-nLC"]][["Method"]][["Gradient"]][["Duration [mm:ss]"]] <- duration + json [["Group"]][[group_numb]][["Instruments"]][["Thermo EASY-nLC"]][["Method"]][["Gradient"]][["Flow [nl/min]"]] <- flow + json [["Group"]][[group_numb]][["Instruments"]][["Thermo EASY-nLC"]][["Method"]][["Gradient"]][["Mixture [%B]"]] <- mixture } - json [["Group"]][[group_numb]][["Instruments"]][["Thermo EASY-nLC"]][["Method"]][["Gradient"]] <- NULL - json [["Group"]][[group_numb]][["Instruments"]][["Thermo EASY-nLC"]][["Method"]][["Gradient"]][["Time [mm:ss]"]] <- time - json [["Group"]][[group_numb]][["Instruments"]][["Thermo EASY-nLC"]][["Method"]][["Gradient"]][["Duration [mm:ss]"]] <- duration - json [["Group"]][[group_numb]][["Instruments"]][["Thermo EASY-nLC"]][["Method"]][["Gradient"]][["Flow [nl/min]"]] <- flow - json [["Group"]][[group_numb]][["Instruments"]][["Thermo EASY-nLC"]][["Method"]][["Gradient"]][["Mixture [%B]"]] <- mixture } } diff --git a/R/sysdata.rda b/R/sysdata.rda index fd87ea9..f91407d 100644 Binary files a/R/sysdata.rda and b/R/sysdata.rda differ diff --git a/data/tmt_list.rda b/data/tmt_list.rda index fd87ea9..f91407d 100644 Binary files a/data/tmt_list.rda and b/data/tmt_list.rda differ diff --git a/inst/bin/MARMoSET.exe b/inst/bin/MARMoSET.exe index 351ac96..60b480b 100644 Binary files a/inst/bin/MARMoSET.exe and b/inst/bin/MARMoSET.exe differ diff --git a/inst/bin/MARMoSET.pdb b/inst/bin/MARMoSET.pdb index dcafc77..8196637 100644 Binary files a/inst/bin/MARMoSET.pdb and b/inst/bin/MARMoSET.pdb differ diff --git a/inst/extdata/term_matching_tables.ods b/inst/extdata/term_matching_tables.ods index debeab7..29179e9 100644 Binary files a/inst/extdata/term_matching_tables.ods and b/inst/extdata/term_matching_tables.ods differ