Commit: 3e3aabb1b1adc61c38d5cf6b3fdd9359c6078799 - myprojects-hg-reborn (hg)

Commit MetaInfo

• Revisión: 3e3aabb1b1adc61c38d5cf6b3fdd9359c6078799 (tree)
• Tiempo: 2023-01-20 02:36:12
• Autor: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

I made some modifications to get ready for the new dplyr release.

Cambiar Resumen

• modified: R-codes/stat_lib.R

Diferencia incremental

diff -r f1197b4cec50 -r 3e3aabb1b1ad R-codes/stat_lib.R
--- a/R-codes/stat_lib.R	Thu Jan 19 11:00:17 2023 +0100
+++ b/R-codes/stat_lib.R	Thu Jan 19 18:36:12 2023 +0100
@@ -2779,8 +2779,13 @@
 
 ## res <- df %>% replace(., is.na(.), pattern)
 
+    ## res <- df |>
+    ##     (\(x) replace(x, is.na(x), pattern))()
+
+
     res <- df |>
-        (\(x) replace(x, is.na(x), pattern))()
+        mutate(across(everything(),\(x) replace(x, is.na(x), pattern)))
+
     
 return(res)    
     
@@ -2834,13 +2839,18 @@
 
 ## the other way around, consider a certain pattern as an NA
 
+## See https://github.com/tidyverse/dplyr/issues/6645#issuecomment-1397035215
+
 pattern_to_na <- function(df, pattern){
 
 ## res <- df %>% na_if(.,  pattern)
 
-res <- df |> (\(x) na_if(x,  pattern))()
-
-
+## res <- df |> (\(x) na_if(x,  pattern))()
+
+## across(where(is.character), \(x) na_if(x, "D"))
+    
+    res <- df |>
+        mutate(across(where(is.character), \(x) na_if(x, pattern)))
     
 return(res)    
     
@@ -2856,8 +2866,12 @@
 
  if (!is.na(pattern1)){   
     
-res <- df |>  (\(x) replace(x,x== pattern1, pattern2))()
-    
+## res <- df |>  (\(x) replace(x,x== pattern1, pattern2))()
+
+     res <- df |>
+         mutate(across(where(is.character), \(x) replace(x,x== pattern1, pattern2)))
+
+     
  } else{