• R/O
  • SSH

Commit

Tags
Keine Tags

Frequently used words (click to add to your profile)

javac++androidlinuxc#objective-cqt誰得cocoawindowspythonphprubygameguibathyscaphec翻訳omegat計画中(planning stage)frameworktwittertestdombtronvb.netdirectxarduinopreviewerゲームエンジン

Commit MetaInfo

Revision56d9cf4d79e79fc308e0b6b1b983cde7e5394d4b (tree)
Zeit2022-06-30 09:54:20
AutorLorenzo Isella <lorenzo.isella@gmai...>
CommiterLorenzo Isella

Log Message

I made a function a bit more readable.

Ändern Zusammenfassung

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 @@
406406 remove_all_special_char <- function(df, new_pattern="" ){
407407
408408
409+ ## res <- df |>
410+ ## mutate(across(where(is.character), ~remove_special_char(.x, new_pattern)))
411+
412+
409413 res <- df |>
410- mutate(across(where(is.character), ~remove_special_char(.x, new_pattern)))
414+ mutate(across(where(is.character), \(x) remove_special_char(x, new_pattern)))
415+
411416 return(res)
412417
413418
@@ -3801,7 +3806,7 @@
38013806
38023807 my_files <- file_path |>
38033808 list.files() |>
3804- (\(.) .[str_detect(., extension) ])()
3809+ (\(x) x[str_detect(x, extension) ])()
38053810
38063811 if (full_path==1){
38073812