passing checks

Author: petermeissner

.gitignore

@@ -3,3 +3,4 @@
 .RData
 .Ruserdata
 inst/doc
+README.html

R/diffrproject.R

@@ -17,8 +17,17 @@ diffrproject <-
   R6::R6Class(
 
     #### class name ============================================================
-    "diffrproject",
-
+    classname    = "diffrproject",
+
+    #### misc ====================================================================
+    active       = NULL,
+    inherit      = rtext::R6_rtext_extended,
+    lock_objects = TRUE,
+    class        = TRUE,
+    portable     = TRUE,
+    lock_class   = FALSE,
+    cloneable    = TRUE,
+    parent_env   = asNamespace('rtext'),
 
 
     #### private ===============================================================

R/tools.R

@@ -1,18 +1,22 @@
 #' checking if value is uniqe in set
 #' @param x vector to check
+#' @keywords internal
 is_unique <- function(x){
   !is_duplicate(x)
 }
 
 #' checking if value is duplicated in set
 #' @param x vector to check
+#' @keywords internal
 is_duplicate <- function(x){
   x %in% x[duplicated(x)]
 }
 
 #' extract specific item from each list element
 #' @param l list
 #' @param item name or index of item to extract
+#' @param unlist defaults to TRUE, whether to unlist results or leave as list
+#' @keywords internal 
 get_list_item <- function(l, item, unlist=TRUE){
   tmp <- lapply(l, `[`, item)
   index <- vapply(tmp, is.null, TRUE)
@@ -25,47 +29,6 @@ get_list_item <- function(l, item, unlist=TRUE){
 }
 
 
-#' text function: wrapper for system.file() to access test files
-#' @param x name of the file
-#' @param pattern pattern of file name
-#' @keywords internal
-test_file <- function(x=NULL, pattern=NULL, full.names=FALSE){
-  if(is.numeric(x)){
-    return(dp_tf(dp_tf()[(x-1) %% length(dp_tf()) +1 ]))
-  }
-  if(is.null(x)){
-    return(
-      list.files(
-        system.file(
-          "testfiles",
-          package = "diffrprojects"
-        ),
-        pattern = pattern,
-        full.names = full.names
-      )
-    )
-  }else if(x==""){
-    return(
-      list.files(
-        system.file(
-          "testfiles",
-          package = "diffrprojects"
-        ),
-        pattern = pattern,
-        full.names = full.names
-      )
-    )
-  }else{
-    return(
-      system.file(
-        paste("testfiles", x, sep="/"),
-        package = "diffrprojects")
-      )
-  }
-}
-
-
-
 
 #' function rbinding list elements
 #' @param l list

README.Rmd

@@ -82,7 +82,7 @@ library(diffrprojects)
 
 dp <- diffrproject$new()
 
-testfiles <- diffrprojects:::test_file(pattern="rc_\\d.txt", full.names = TRUE)
+testfiles <- rtext:::testfile(pattern="rc_\\d.txt", full.names = TRUE)
 
 dp$text_add(testfiles)
 names(dp$texts)

README.md

@@ -91,7 +91,17 @@ http://dx.doi.org/10.1111/lsq.12106>.
 
 ```r
 library(diffrprojects)
+```
+
+```
+## Loading required package: stringb
+```
 
+```
+## Loading required package: rtext
+```
+
+```r
 dp <- diffrproject$new()
 
 testfiles <- diffrprojects:::test_file(pattern="rc_\\d.txt", full.names = TRUE)
@@ -101,6 +111,9 @@ dp$text_add(testfiles)
 
 ```
 ## rtext : initializing
+```
+
+```
 ## rtext : initializing
 ## rtext : initializing
 ```
@@ -118,14 +131,10 @@ dp$text_data()
 ```
 
 ```
-##                                                                        text_file character encoding
-## 1 /home/peter/R/x86_64-pc-linux-gnu-library/3.3/diffrprojects/testfiles/rc_1.txt      1501    UTF-8
-## 2 /home/peter/R/x86_64-pc-linux-gnu-library/3.3/diffrprojects/testfiles/rc_2.txt     10842    UTF-8
-## 3 /home/peter/R/x86_64-pc-linux-gnu-library/3.3/diffrprojects/testfiles/rc_3.txt     10268    UTF-8
-##   sourcetype
-## 1  text_file
-## 2  text_file
-## 3  text_file
+##                                                           text_file character encoding sourcetype
+## 1 C:/Users/peter/R/win-library/3.3/diffrprojects/testfiles/rc_1.txt    926166    UTF-8  text_file
+## 2 C:/Users/peter/R/win-library/3.3/diffrprojects/testfiles/rc_2.txt    844551    UTF-8  text_file
+## 3 C:/Users/peter/R/win-library/3.3/diffrprojects/testfiles/rc_3.txt    643012    UTF-8  text_file
 ```
 
 ```r