Commit: 56d9cf4d79e79fc308e0b6b1b983cde7e5394d4b - myprojects-hg-reborn (hg)

Commit MetaInfo

• Revision: 56d9cf4d79e79fc308e0b6b1b983cde7e5394d4b (tree)
• Zeit: 2022-06-30 09:54:20
• Autor: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

I made a function a bit more readable.

Ändern Zusammenfassung

• modified: R-codes/stat_lib.R

Diff

diff -r 21f423fc04aa -r 56d9cf4d79e7 R-codes/stat_lib.R
--- a/R-codes/stat_lib.R	Thu Jun 30 02:39:17 2022 +0200
+++ b/R-codes/stat_lib.R	Thu Jun 30 02:54:20 2022 +0200
@@ -406,8 +406,13 @@
 remove_all_special_char <- function(df, new_pattern="" ){
 
 
+    ## res <- df  |> 
+    ##     mutate(across(where(is.character), ~remove_special_char(.x, new_pattern)))
+
+
     res <- df  |> 
-        mutate(across(where(is.character), ~remove_special_char(.x, new_pattern)))
+        mutate(across(where(is.character), \(x) remove_special_char(x, new_pattern)))
+
     return(res)
 
     
@@ -3801,7 +3806,7 @@
     
 my_files <- file_path  |> 
     list.files()  |> 
-    (\(.) .[str_detect(., extension) ])()    
+    (\(x) x[str_detect(x, extension) ])()    
 
     if (full_path==1){