Fix issue 31

sashahafner · Jan 30, 2020 · 77df718 · 77df718
1 parent b690c86
commit 77df718
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: biogas
 Type: Package
 Title: Process Biogas Data and Predict Biogas Production
-Version: 1.23.2
+Version: 1.24.0
 Date: 2020
 Authors@R: c(person("Sasha D.", "Hafner", role = c("aut", "cre"), email = "sasha.hafner@eng.au.dk"), person("Charlotte", "Rennuit", role = "aut"), person("Camilla", "Justesen", role = "aut"), person("Nanna", "Lojborg", role = "aut"), person("Jacob", "Mortensen", role = "aut"), person("Sergi", "Astals", role = "ctb"), person("Konrad", "Koch", role = "ctb"), person("Soeren", "Weinrich", role = "ctb"), person("Jin Mi", "Triolo", role = "ctb"), person("Ali", "Heidarzadeh Vazifehkhoran", role = "ctb"))
 Author: Sasha D. Hafner [aut, cre], Charlotte Rennuit [aut], Camilla Justesen [aut], Nanna Lojborg [aut], Jacob Mortensen [aut], Sergi Astals [ctb], Konrad Koch [ctb], Soeren Weinrich [ctb], Jin Mi Triolo [ctb], Ali Heidarzadeh Vazifehkhoran [ctb]

diff --git a/R/summBg.R b/R/summBg.R
@@ -307,7 +307,7 @@ summBg <- function(
     names(summ1) <- c(id.name, time.name, vol.name)
 
     # Sort, in order to find latest values
-    vol <- vol[order(vol[, id.name], vol[, vol.name]), ]
+    vol <- vol[order(vol[, id.name], vol[, time.name]), ]
 
     for(i in ids) {
       dc <- vol[vol[, id.name]==i, ]