Upgrade to v0.9

Author: chartgerink

DESCRIPTION

@@ -1,11 +1,10 @@
 Package: datacheck
 Title: Check Data For Potential Privacy Violations
 Version: 0.0.0.9000
-Authors@R: 
-    person("Chris", "Hartgerink", , "chris@libscie.org", role = c("aut", "cre"),
-           comment = c(ORCID = "0000-0003-1050-6809")),
-    person("Richard", "Klein", , "raklein22@gmail.com", role = c("aut", "cre"),
-           comment = c(ORCID = "0000-0002-8713-1972"))
+Authors@R: c(
+        person("Chris", "Hartgerink", ,"chris@libscie.org", role = c("aut", "cre"), comment = c(ORCID = "0000-0003-1050-6809")),
+        person("Richard", "Klein", ,"raklein22@gmail.com", role = c("aut"), comment = c(ORCID = "0000-0002-8713-1972"))
+    )
 Description: The datacheck package scans datasets for potential privacy violations according to data protection laws (e.g., GDPR, HIPAA). This is a tool to help screen datasets that researchers may want to openly share online. It can also be used as a research tool to scan datasets for potential privacy violations. The data is not sent to  any remote server for this screening, it happens 100% with the package and on the person's device.
 License: MIT + file LICENSE
 Suggests: 
@@ -18,4 +17,5 @@ RoxygenNote: 7.2.1
 Imports: 
     readxl,
     stringr,
-    tools
+    tools,
+    utils

NAMESPACE

@@ -4,3 +4,5 @@ export(checker)
 export(datacheck)
 export(datacheckFile)
 export(datacheckFolder)
+importFrom(utils,read.csv)
+importFrom(utils,read.csv2)

R/checker.R

@@ -88,7 +88,12 @@ datacheckFile <- function(path) {
 datacheckFolder <- function(path) {
   matchedFiles <- list.files(path, pattern = "*.csv|*.xlsx", recursive = TRUE)
   for (i in 1:length(matchedFiles)) {
-    iterPath <- sprintf('%s%s', path, matchedFiles[i])
+    iterPath <- sprintf('%s%s', ifelse(
+        endsWith(x = path, '/'),
+        path,
+        paste0(path, '/')
+      ),
+      matchedFiles[i])
     if (i == 1) {
       res <- datacheckFile(iterPath)
     } else {

R/datacheck-package.R

@@ -0,0 +1,9 @@
+#' @keywords internal
+#' @aliases datacheck-package
+"_PACKAGE"
+
+## usethis namespace: start
+#' @importFrom utils read.csv
+#' @importFrom utils read.csv2
+## usethis namespace: end
+NULL

R/dictionary.R

@@ -28,7 +28,7 @@ latitudeLongitude <- function () {
 }
 
 gender <- function () {
-  return("^(transgender|two-spirit|non[-\\s]?binary|cisgender|gender[-\\s]?fluid|trans)$")
+  return("^(transgender|two-spirit|non[-\\s]?binary|cisgender|gender[-\\s]?fluid|trans.*)$")
 }
 
 ssn <- function () {