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

Commit MetaInfo

• Revisión: 7f03e71cf27fb01bc0d4c77fb08694e9e056e14c (tree)
• Tiempo: 2023-01-23 19:18:40
• Autor: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

I have changed the clean_data function to give the option to keep duplicated lines.

Cambiar Resumen

• modified: R-codes/stat_lib.R

Diferencia incremental

diff -r b849bec577de -r 7f03e71cf27f R-codes/stat_lib.R
--- a/R-codes/stat_lib.R	Fri Jan 20 10:17:40 2023 +0100
+++ b/R-codes/stat_lib.R	Mon Jan 23 11:18:40 2023 +0100
@@ -5138,15 +5138,22 @@
 
 
 
-clean_data <- function(x){
+clean_data <- function(x, remove_duplicated_rows=T){
 
     res <- x |>  ## %>%
         clean_names() |>  ## %>%
         remove_empty() |>  ## %>%
-        distinct() |>  ## %>%
+        
         rem_dupl_cols() |>  ## %>%
         rem_const_cols()
 
+    if (remove_duplicated_rows==T){
+
+        res <- res |>
+            distinct() 
+        
+    }
+    
     return(res)