inst : verbose text file names for testing in dp_tf()

Author: petermeissner

R/rtext.R

@@ -260,6 +260,10 @@ rtext <-
           }
       }
 
+      #### Tokenize
+      private$tokenize()
+
+
       ##### ID
       if( is.null(id) ){
         self$id <- dp_hash(self)

benchmarks/benchmark_expanding_spans.R

@@ -2,7 +2,7 @@ library(diffrprojects)
 library(magrittr)
 library(microbenchmark)
 
-dings <- rtext$new(text_file=dp_tf(1), verbose=TRUE)
+dings <- rtext$new(text_file=dp_tf("rc_1.txt"), verbose=TRUE)
 dings$get("char_data")
 
 dings$char_data_set("pimpf", 1, 1)

benchmarks/benchmark_rtext_char_code.R

@@ -6,15 +6,15 @@ source("benchmarks/rtext_char_code1.R")
 source("benchmarks/rtext_char_code2.R")
 
 init1 <- function(){
-  tmp1 <- rtext_char_chode1$new(text_file=dp_tf(3))
+  tmp1 <- rtext_char_chode1$new(text_file=dp_tf("rc_3.txt"))
   for(i in 1:100){
     tmp1$char_code("hodor", sample(1:10, 1000, replace=TRUE), sample(tmp1$info()$character, 1000) )
   }
   cat(".")
 }
 
 init2 <- function(){
-  tmp2 <- rtext_char_chode2$new(text_file=dp_tf(3))
+  tmp2 <- rtext_char_chode2$new(text_file=dp_tf("rc_3.txt"))
   for(i in 1:100){
     tmp2$char_code("hodor", sample(1:10, 1000, replace=TRUE), sample(tmp2$info()$character, 1000) )
   }

benchmarks/benchmark_text_tokenize.R

@@ -7,7 +7,7 @@ library(diffrprojects)
 x1 <- "Daniel Defoe: Robinson Crusoe\n\n* Quelle"
 x2 <- "Daniel Defoe: Robinson Crusoe\n\n* Quelle: "
 x3 <- " Daniel Defoe: Robinson Crusoe\n\n* Quelle: "
-xfull <- text_read(dp_tf(1))
+xfull <- text_read(dp_tf("rc_1.txt"))
 
 x <- x3
 regex <- "\\W+"
@@ -113,7 +113,7 @@ text_tokenize_5 <-
 x1 <- "Daniel Defoe: Robinson Crusoe\n\n* Quelle"
 x2 <- "Daniel Defoe: Robinson Crusoe\n\n* Quelle: "
 x3 <- " Daniel Defoe: Robinson Crusoe\n\n* Quelle: "
-xfull <- text_read(dp_tf(1))
+xfull <- text_read(dp_tf("rc_1.txt"))
 
 x <- xfull
 regex <- "\\W+"
@@ -236,7 +236,7 @@ fixed=FALSE
 useBytes=FALSE
 group=c("words", "lines", "paragraphs")
 
-xfull <- text_read(dp_tf(1))
+xfull <- text_read(dp_tf("rc_1.txt"))
 RES   <- list()
 stime <- Sys.time()