Commit: fb00af179b09110fced32d82abb532744f8a88d1 - myprojects-hg-reborn (hg)

Commit MetaInfo

• Revision: fb00af179b09110fced32d82abb532744f8a88d1 (tree)
• Time: 2022-09-30 16:15:21
• Author: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

I added a parallel version of the function to look for a list of keywords.

Change Summary

• modified: R-codes/stat_lib.R

Incremental Difference

diff -r 569fd3539a77 -r fb00af179b09 R-codes/stat_lib.R
--- a/R-codes/stat_lib.R	Thu Sep 29 16:19:28 2022 +0200
+++ b/R-codes/stat_lib.R	Fri Sep 30 09:15:21 2022 +0200
@@ -6986,3 +6986,23 @@
     return(res)
     
 }
+
+### Now its parallel version. It needs library(furrr) and something like
+
+## n_cores <- 2
+
+## plan(multicore(workers=return_cores(n_cores)))
+
+
+## to be able to use multiple cores.
+
+find_text_multiple_keywords_exact_matches_future <- function( df, keywords){
+
+    res <- future_map_dfr(keywords,
+                         function(x) find_text_filter_exact_matches(df, x) ,
+                         .progress =T)
+
+    return(res)
+    
+}
+