Ran styler on whole package, fixed indenting

Author: wright13

R/optional_data_checks.R

@@ -13,51 +13,52 @@
 #' test_pii_data_emails()
 #' }
 test_pii_data_emails <- function(directory = here::here()) {
-
-  #get the full file names and paths for all files in directory
+  # get the full file names and paths for all files in directory
   files <- list.files(directory, full.names = TRUE)
 
-  emails_list <- NULL #list of lists containing offending emails.
-  #populate emails_list with pii emails:
-  for(file in files){
-    data_emails <- NULL #holds  emails
-    email_files <- NULL #holds names of files that contain emails
+  emails_list <- NULL # list of lists containing offending emails.
+  # populate emails_list with pii emails:
+  for (file in files) {
+    data_emails <- NULL # holds  emails
+    email_files <- NULL # holds names of files that contain emails
     personal_emails <- NULL # holds offending emails
-    if(grepl(".csv", file, ignore.case = TRUE)) {
-      #read data line by line, concatenate lines (emails split across a lines)
+    if (grepl(".csv", file, ignore.case = TRUE)) {
+      # read data line by line, concatenate lines (emails split across a lines)
       data_lines <- paste(readLines(file), collapse = " ")
-      #for each csv file, extract all emails and add them to file_emails
+      # for each csv file, extract all emails and add them to file_emails
       data_emails <- suppressWarnings(
-        regmatches(data_lines,gregexpr("([_+a-z0-9-]+(\\.[_+a-z0-9-]+)*@[a-z0-9-]+(\\.[a-z0-9-]+)*(\\.[a-z]{2,14}))", data_lines)))
+        regmatches(data_lines, gregexpr("([_+a-z0-9-]+(\\.[_+a-z0-9-]+)*@[a-z0-9-]+(\\.[a-z0-9-]+)*(\\.[a-z]{2,14}))", data_lines))
+      )
       data_emails <- unlist(data_emails, recursive = FALSE)
 
-      #if a file contains emails, check for offending emails:
-      if(length(seq_along(data_emails)) > 0){
-        for(i in seq_along(data_emails)){
-          #filter out .govs
-          if(!stringr::str_detect(data_emails[i], ".gov")){
+      # if a file contains emails, check for offending emails:
+      if (length(seq_along(data_emails)) > 0) {
+        for (i in seq_along(data_emails)) {
+          # filter out .govs
+          if (!stringr::str_detect(data_emails[i], ".gov")) {
             personal_emails <- append(personal_emails, data_emails[i])
           }
         }
       }
-      if(!is.null(personal_emails)){
+      if (!is.null(personal_emails)) {
         pii_emails <- list(personal_emails)
         names(pii_emails) <- basename(file)
-        emails_list<-append(emails_list, pii_emails)
+        emails_list <- append(emails_list, pii_emails)
       }
     }
   }
-  #if there are offending emails, fail with warning:
-  if(!is.null(emails_list)){
+  # if there are offending emails, fail with warning:
+  if (!is.null(emails_list)) {
     msg <- paste0("--> {.file ", names(emails_list), "}: ", unlist(emails_list))
     names(msg) <- rep(" ", length(msg))
     err <- paste0("The following data files contain emails with potential PII:")
 
     cli::cli_warn(c("!" = err, msg))
-  #if no pii emails (non .gov), pass test:
+    # if no pii emails (non .gov), pass test:
   } else {
     cli::cli_inform(
-      c("v" = "Data files do not appear to contain any personal emails."))
+      c("v" = "Data files do not appear to contain any personal emails.")
+    )
   }
-  #return(invisible(metadata))
+  # return(invisible(metadata))
 }