v0.1.3

Author: petermeissner

.gitignore

@@ -4,3 +4,5 @@
 .Ruserdata
 inst/doc
 README.html
+*.o
+*.dll

README.Rmd

@@ -6,8 +6,8 @@ output: github_document
 
 
 ```{r, include=FALSE}
-options("width"=110)
-tmp <- packageDescription("diffrprojects")
+options("width"=101)
+tmp <- devtools:::read_dcf("DESCRIPTION")
 ```
 
 ```{r, results='asis', echo=FALSE}
@@ -29,17 +29,20 @@ filelist.R   <- list.files("R", recursive = TRUE, pattern="\\.R$", ignore.case =
 filelist.tests   <- list.files("tests", recursive = TRUE, pattern="\\.R$", ignore.case = TRUE, full.names = TRUE)
 filelist.cpp <- list.files("src", recursive = TRUE, pattern="\\.cpp$", ignore.case = TRUE, full.names = TRUE)
 lines.R      <- unlist(lapply(filelist.R, readLines))
-lines.tests  <- unlist(lapply(filelist.cpp, readLines))
+lines.tests  <- unlist(lapply(filelist.tests, readLines))
 lines.cpp    <- unlist(lapply(filelist.cpp, readLines))
-length.R     <- length(grep("(^\\s*$)|(^\\s*#)|(^\\s*//)", lines.R,  value = TRUE, invert = TRUE))
-length.tests <- length(grep("(^\\s*$)|(^\\s*#)|(^\\s*//)", lines.tests,  value = TRUE, invert = TRUE))
-length.cpp   <- length(grep("(^\\s*$)|(^\\s*#)|(^\\s*//)", lines.cpp,  value = TRUE, invert = TRUE))
+length.R     <- 
+  length(grep("(^\\s*$)|(^\\s*#)|(^\\s*//)", lines.R,  value = TRUE, invert = TRUE))
+length.tests <- 
+  length(grep("(^\\s*$)|(^\\s*#)|(^\\s*//)", lines.tests,  value = TRUE, invert = TRUE))
+length.cpp   <- 
+  length(grep("(^\\s*$)|(^\\s*#)|(^\\s*//)", lines.cpp,  value = TRUE, invert = TRUE))
 ```
 
 
 *unstable* - in wild developement with fuRiouS rEstRucturINg and biG biG pOKing
 
-*lines of R code:* `r length.R`, *lines of C++ code:* `r length.cpp`, *lines of test code:* `r length.tests`
+*R code:* `r length.R`, *C++ code:* `r length.cpp`, *test code:* `r length.tests`
 
 
 
@@ -61,7 +64,7 @@ cat(tmp$Description)
 
 ```{r, results='asis', echo=FALSE}
 cat(tmp$License, "<br>")
-cat(tmp$Author)
+cat(as.character(eval(parse(text=tmp$Author))))
 ```
 
 

README.md

@@ -8,23 +8,23 @@ Using diffr for more than two files
 
 *unstable* - in wild developement with fuRiouS rEstRucturINg and biG biG pOKing
 
-*lines of R code:* 388, *lines of C++ code:* 112, *lines of test code:* 112
+*R code:* 619, *C++ code:* 112, *test code:* 243
 
 **Version**
 
-0.1.2.90000
+0.1.3.90000
 
 **Description**
 
 This is a description still to be done but to prevent checks about complaining about to short descriptions this does not simply read TBD.
 
 **License**
 
-MIT + file LICENSE <br>Peter Meissner \[aut, cre\], Ulrich Sieberer \[cph\], University of Konstanz \[cph\]
+MIT + file LICENSE <br>Peter Meissner <[email protected]> \[aut, cre\] Ulrich Sieberer <[email protected]> \[cph\] University of Konstanz <[email protected]> \[cph\]
 
 **Citation**
 
-Meißner P (2016). *diffrprojects: Using diffr for more than two texts*. R package version 0.1.2.90000, &lt;URL: <https://github.com/petermeissner/diffrprojects>&gt;.
+Meißner P (2016). *diffrprojects: Using diffr for more than two texts*. R package version 0.1.3.90000, &lt;URL: <https://github.com/petermeissner/diffrprojects>&gt;.
 
 Sieberer U, Meißner P, Keh J and Müller W (2016). "Mapping and Explaining Parliamentary Rule Changes in Europe: A Research Program." *Legislative Studies Quarterly*, *41*(1), pp. 61-88. ISSN 1939-9162, doi: 10.1111/lsq.12106 (URL: <http://doi.org/10.1111/lsq.12106>), &lt;URL: <http://dx.doi.org/10.1111/lsq.12106>&gt;.
 

autotest.Rexec

@@ -16,7 +16,7 @@ text2 <- rtext$new(text_file=text_files[14], encoding="latin1")$text_get(2000)
 
 #### ---------------------------------------------------------------------------
 
-diffr(text1, text2)
+diff_align(text1, text2)
 
 
 

dev.R

@@ -1,4 +1,2 @@
 RcppExports.o
-rtext.dll
-rtext.so
-which_token_worker.o
+