releasing version

.Rbuildignore

@@ -3,5 +3,3 @@
 ^.*\.Rproj$
 ^\.Rproj\.user$
 ^\.travis\.yml$
-^\.travis\.yml$
-^\.travis\.yml$

.gitignore

@@ -1,4 +1,4 @@
 packrat/lib*/
 .Rproj.user
 .DS_Store
-.Rprofile
+.Rprofile

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: SoundexBR
 Type: Package
-Title: Phonetic-Coding For Portuguese
-Version: 1.1
+Title: Phonetic-Coding for Portuguese
+Version: 1.2
 Date/Publication: 2014-12-12
 Author: Daniel Marcelino
 Maintainer: Daniel Marcelino <dmarcelino@live.com>
@@ -17,6 +17,7 @@ Suggests:
     SciencesPo
 LazyData: yes
 License: GPL (>= 2)
+Encoding: latin1
 Depends:
     R (>= 3.0),stats,utils,graphics,grDevices
 Enhances: RecordLinkage

R/soundexBR.R

@@ -13,7 +13,7 @@ soundexBR <- function(term, BR=TRUE, useBytes = FALSE) {
   if (!useBytes){ x <- char2int(x)
     r <- .Call("R_soundexBR", x)
     if (!useBytes) int2char(r) else r
-  } 
+  }
 }
 
 #' @export
@@ -23,14 +23,14 @@ int2char <- function(x) {
 
 #' @export
 char2int <- function(x){
-  lapply(enc2utf8(x),utf8ToInt) # declares its output as 
+  lapply(enc2utf8(x),utf8ToInt) # declares its output as
 }
 NULL
 
 
 #' @encoding UTF-8
-#' @title Adjusts for Common Mispelled Words 
-#' @description This is a helper function for soundexBR, and not intended to standalone.
+#' @title Adjusts for common mispelled words
+#' @description This is a helper function for soundexBR and not intended to standalone.
 #' @param x a vector of words.
 #' @export
 ptSound <- function(x){
@@ -64,4 +64,4 @@ x<-ifelse(substr(x,1,2)=="GI",sub("G","J",x),x);
 x<-ifelse(substr(x,1,2)=="Gi",sub("G","J",x),x);
 x<-ifelse(substr(x,1,2)=="gi",sub("G","J",x),x);
 }
-NULL 
+NULL

R/utils.R

@@ -9,6 +9,9 @@ RECYCLEWARNING <- NULL
   	packageStartupMessage('')	
 }
 
+
+
+
 #' @export
 ascii.table <- function(x){
   charclass <- paste0("[^]"

inst/CITATION

@@ -1,3 +1,3 @@
-year <- sub("-.*", "", meta$Date) 
-note <- sprintf("R package version %s", meta$Version) 
-bibentry(bibtype = "Manual", title = "{SoundexBR}: Soundex (Phonetic) Algorithm For Brazilian Portuguese", author = person("Daniel", "Marcelino"), year = year, note = note, url = "http://CRAN.R-project.org/package=soundexBR")
+year <- sub("-.*", "", meta$Date)
+note <- sprintf("R package version %s", meta$Version)
+bibentry(bibtype = "Manual", title = "{SoundexBR}: Soundex (Phonetic) Algorithm For Brazilian Portuguese", author = person("Daniel", "Marcelino"), year = year, note = note, url = "http://cran.r-project.org/web/packages/SoundexBR/index.html")