Tiny switch in if || order

AU-BCE-EE · Jan 6, 2023 · 287f071 · 287f071
1 parent 6a06c4c
commit 287f071
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: ALFAM2
 Type: Package
 Title: Model on Ammonia Emission from Field-Applied Manure
-Version: 2.13.9
+Version: 2.13.10
 Date: 2023-01-05
 Authors@R: c(person("Sasha D.", "Hafner", role = c("aut", "cre"), email = "sasha.hafner@bce.au.dk"),
              person("Christoph", "Haeni", role = "aut"),

diff --git a/R/alfam2.R b/R/alfam2.R
@@ -248,7 +248,7 @@ alfam2 <- ALFAM2mod <- function(
       ct.ind <- which(ct > incorp.time[i])[1]
 
       # Add rows
-      if (ct.ind == 1 || incorp.time[i] != ct[ct.ind - 1]){
+      if (incorp.time[i] != ct[ct.ind - 1] || ct.ind == 1){
 
         # Use predictor values from ct.ind row, insert row before first interval
         ins.dat <- dat[dat$`__group` == i, ][ct.ind, ]