Commit: 626baeef9bc4307804a1db36aeb0c0d2a472d04e - myprojects-hg-reborn (hg)

Commit MetaInfo

• Revisión: 626baeef9bc4307804a1db36aeb0c0d2a472d04e (tree)
• Tiempo: 2023-02-03 23:43:16
• Autor: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

I modified the add_total function to make sure I operate on a tibble.

Cambiar Resumen

• modified: R-codes/stat_lib.R

Diferencia incremental

diff -r 164b668dad39 -r 626baeef9bc4 R-codes/stat_lib.R
--- a/R-codes/stat_lib.R	Wed Feb 01 22:15:54 2023 +0100
+++ b/R-codes/stat_lib.R	Fri Feb 03 15:43:16 2023 +0100
@@ -4658,8 +4658,20 @@
 
 ## I rewrite the function above using the native pipe.
 
+## add_total <- function(x, pos=1, ...){
+##     adorn_totals(x, ...)  |>   
+##     as_tibble()  |>
+##     (\(x) move_row(x, nrow(x)+1, pos))()
+    
+## }
+
+
+
 add_total <- function(x, pos=1, ...){
-    adorn_totals(x, ...)  |>   
+
+    x <- as_tibble() |> 
+    
+    adorn_totals( ...)  |>   
     as_tibble()  |>
     (\(x) move_row(x, nrow(x)+1, pos))()
     
@@ -4667,6 +4679,8 @@
 
 
 
+
+
 ## See split(d, ceiling(seq_along(d)/20))
 
 split_vec <- function(d, mylen){