Add function for rounding half to largest ("math rounding"). Issue #100

gdemin · Jun 24, 2023 · d884661 · d884661
1 parent 480a18f
commit d884661
Show file tree

Hide file tree

Showing 2 changed files with 42 additions and 14 deletions.
diff --git a/R/aaa_utils.R b/R/aaa_utils.R
@@ -234,15 +234,28 @@ flat_list=function(x, flat_df = FALSE){
     }
 }
 
-
+# contrary to base 'round' round .5 to bigest integer
+round2 = function(x, digits = 0) {
+    posneg = sign(x)
+    z = abs(x)*10^digits
+    z = z + 0.5 + sqrt(.Machine$double.eps)
+    z = trunc(z)
+    z = z/10^digits
+    z*posneg
+}
 
 ## round all numerics in the data.frame
 round_dataframe = function(x, digits = NULL){
     if(is.null(digits)) digits = 1
     if(is.na(digits)) return(x)
+    if(isFALSE(get_expss_rounding())) {
+        round_function = round2
+    } else {
+        round_function = round
+    }    
     for (i in seq_len(NCOL(x))){
         if(is.numeric(x[[i]])){
-            x[[i]] = round(x[[i]], digits)
+            x[[i]] = round_function(x[[i]], digits)
         }
     }
     x

diff --git a/man/expss.options.Rd b/man/expss.options.Rd