提交: 8463800b0ebc451a225370be0ec3ba7219111e23 - myprojects-hg-reborn (hg)

Commit MetaInfo

• 修订版: 8463800b0ebc451a225370be0ec3ba7219111e23 (tree)
• 时间: 2022-06-23 23:50:14
• 作者: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

I added a function to deal with the tsv files.

更改概述

• modified: R-codes/stat_lib.R

差异

diff -r 0045aecc0169 -r 8463800b0ebc R-codes/stat_lib.R
--- a/R-codes/stat_lib.R	Wed Jun 22 13:45:56 2022 +0200
+++ b/R-codes/stat_lib.R	Thu Jun 23 16:50:14 2022 +0200
@@ -215,6 +215,37 @@
 }
 
 
+read_tsv_to_char <- function(x, ...){
+
+    res <- read_tsv(x, ...) %>%
+        as_tibble %>%
+        all_to_char()
+
+    return(res)
+
+    
+}
+
+
+
+
+read_all_tsv_to_char <- function( mypath=".", pattern="*tsv", ...){
+
+
+f <- list.files(
+   mypath,
+   pattern,
+   full.names = TRUE)
+
+d <- purrr::map_df(f, read_tsv_to_char, .id = "id", ...)
+
+return(d)    
+
+    
+}
+
+
+
 ## same but for any files
 
 read_all_extensions <- function( extension, mypath=".", ...){