Fix: refmet validation

#228
MoTrPAC · Mar 4, 2024 · 244bf87 · 244bf87
1 parent 22a8154
commit 244bf87
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/metabolomics_data_dictionary.R b/R/metabolomics_data_dictionary.R
@@ -97,7 +97,7 @@ validate_refmetname <- function(dataf, verbose){
 
     search_api <- paste0("https://www.metabolomicsworkbench.org/rest/refmet/match/",URLencode(rn),"/name/")
     here <- jsonlite::fromJSON(search_api)
-    if(length(here) == 0){
+    if(here$refmet_name == "-"){
       if(verbose) message(paste0("      (-) `refmet_name` [`", rn, "`] not available in RefMet. Please, contact MW/BIC (Error RN1)"))
       irm <- irm + 1
       idna <- idna + 1