Fix a bug in collapsing data.frame (#23)

EBI-Metagenomics · Mar 12, 2024 · 9ddf1d3 · 9ddf1d3
1 parent 856290c
commit 9ddf1d3
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: HoloFoodR
 Type: Package
-Version: 0.1.3
+Version: 0.1.4
 Authors@R:
     c(person(given = "Tuomas", family = "Borman", role = c("aut", "cre"),
              email = "[email protected]",

diff --git a/R/getResult.R b/R/getResult.R
@@ -496,6 +496,10 @@ getResult <- function(accession, get.metabolomic = TRUE, ...){
         if( all(lengths(col) == 1) ){
             col <- unlist(col)
         }
+        # Order data based on original table where the data will be added.
+        # The order can be changed during the process.
+        ind <- match(table[["accession"]], names(col))
+        col <- col[ ind ]
         # Add it to back to original table
         table[[name]] <- col
     }