Commit: 7b4c16c8fccd31e5de031696a9ff23ee7c2d8450 - myprojects-hg-reborn (hg)

Commit MetaInfo

• Revision: 7b4c16c8fccd31e5de031696a9ff23ee7c2d8450 (tree)
• Zeit: 2022-06-30 08:56:43
• Autor: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

I rewrote the add_total function.

Ändern Zusammenfassung

• modified: R-codes/stat_lib.R

Diff

diff -r 9134eea115a1 -r 7b4c16c8fccd R-codes/stat_lib.R
--- a/R-codes/stat_lib.R	Wed Jun 29 17:30:42 2022 +0200
+++ b/R-codes/stat_lib.R	Thu Jun 30 01:56:43 2022 +0200
@@ -4631,13 +4631,21 @@
 ## I slightly modify a function from janitor to do add the totals.
 
 
+## add_total <- function(x, pos=1, ...){
+##     adorn_totals(x, ...) %>% 
+##     as_tibble()   %>% 
+##     move_row(nrow(.)+1, pos)    
+## }
+
+## I rewrite the function above using the native pipe.
+
 add_total <- function(x, pos=1, ...){
-    nn <- nrow(x)+1
-    
-    adorn_totals(x, ...)  |>   ## %>%
-    as_tibble()  |>  ## %>%
-    move_row(nn, pos)    
-}
+    adorn_totals(x, ...)  |>   
+    as_tibble()  |>
+    (\(x) move_row(x, nrow(x)+1, pos))()
+    
+}
+
 
 
 ## See split(d, ceiling(seq_along(d)/20))