Refactoring (#21)

* Restyle using styler::tidyverse_style()

* Remove commented code

* Change variables and fxn names to snake_case
Closes #17

* Eliminate use of getwd
Closes #9

* Refactor load_data
Closes #11

* Allll the refactoring
Made errors and return values more consistent, updated roxygen documentation to remove redundancy. test_field_num is half done and broken, will fix soon

* Change test_field_num to test_fields_match
Checks for mismatched field names and order now

* Update return value documentation
Closes #10, closes #8

* Update gitignore

* Fix logical operators

* In test_file_name_match, handle case where only one data table

* Add script to try out tests
Will run tests on an arbitrary number of data packages as long as they're all in the same folder

Co-authored-by: Wright <[email protected]>

Author: wright13

.gitignore

@@ -2,3 +2,4 @@
 .Rhistory
 .RData
 .Ruserdata
+scratchpad/*

NAMESPACE

@@ -5,7 +5,7 @@ export(load_metadata)
 export(test_delimiter)
 export(test_dup_data_files)
 export(test_dup_meta_entries)
-export(test_field_num)
+export(test_fields_match)
 export(test_file_name_match)
 export(test_footer)
 export(test_header_num)

R/tabular_data_congruence.R

@@ -0,0 +1,23 @@
+dirs <- list.dirs(here::here("scratchpad"))
+dirs <- dirs[-1]
+
+for (dir in dirs) {
+  cat(paste(crayon::blue$bold(basename(dir)), "\n"))
+
+  meta <- try(load_metadata(dir))
+  data <- try(load_data(dir))
+
+  if (!any("try-error" %in% class(meta))) {
+    try(test_validate_schema(meta))
+    try(test_metadata_version(meta))
+    try(test_delimiter(meta))
+    try(test_footer(meta))
+    try(test_header_num(meta))
+    try(test_dup_data_files(dir))
+    try(test_dup_meta_entries(meta))
+    try(test_file_name_match(dir, meta))
+    try(test_fields_match(dir, meta))
+  }
+
+  cat("\n")
+}