提交: 4055c222ba54944d84fb2e1ad56e47fceb426041 - myprojects-hg-reborn (hg)

Commit MetaInfo

• 修订版: 4055c222ba54944d84fb2e1ad56e47fceb426041 (tree)
• 时间: 2022-04-21 04:21:27
• 作者: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

I added a function to recode many values at the same time.

更改概述

• modified: R-codes/stat_lib.R

差异

diff -r c8060613283d -r 4055c222ba54 R-codes/stat_lib.R
--- a/R-codes/stat_lib.R	Sun Apr 10 00:35:42 2022 +0200
+++ b/R-codes/stat_lib.R	Wed Apr 20 21:21:27 2022 +0200
@@ -6447,3 +6447,16 @@
     return(links)
 }
 
+
+
+## See discussion at https://github.com/tidyverse/dplyr/issues/3218
+
+
+recode_many <- function(x, old_names, new_names){
+
+    name_lookup <- set_names(new_names, old_names) %>% as.list
+
+    res <- recode(x, !!!name_lookup)
+    return(res)
+    
+}