fix obtuse logic as requested by @dylanbeaudette

ncss-tech · Jun 19, 2020 · ce41cab · ce41cab · dylanbeaudette · Jun 19, 2020
1 parent 43b6f12
commit ce41cab
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/SoilProfileCollection-setters.R b/R/SoilProfileCollection-setters.R
@@ -475,7 +475,7 @@ setReplaceMethod("horizons", signature(object = "SoilProfileCollection"),
                              horizon.new[[hzidname(object)]])
   chnew <- .coalesce.idx(horizon.new[[idname(object)]])
   if(length(chnew) != length(original.site.order) |
-     sum(suppressWarnings(original.site.order != chnew)) > 0) {
+     suppressWarnings(any(original.site.order != chnew))) {
     message("join condition resulted in sorting of horizons, re-applying original order")
     horizon.new <- horizon.new[new.horizon.order,]
   }