Merge pull request #44 from ecohealthalliance/patch/set_diff

Patch/set diff

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: ohcleandat
 Type: Package
 Title: One Health Data Cleaning and Quality Checking Package
-Version: 0.3.0
+Version: 0.3.1
 Authors@R: c(
     person("Collin", "Schwantes", email = "schwantes@ecohealthalliance.org", role = c("cre", "aut"), comment = c(ORCID = "0000-0003-4014-4896")),
     person("Johana", "Teigen", email = "teigen@ecohealthalliance.org", role = "aut", comment = c(ORCID = "0000-0002-6209-2321")),

NAMESPACE

@@ -28,6 +28,7 @@ export(othertext_lookup)
 export(read_excel_all_sheets)
 export(read_googlesheets)
 export(remove_deletions)
+export(set_diff)
 export(validation_checks)
 importFrom(dplyr,"%>%")
 importFrom(rlang,":=")

NEWS.md

@@ -1,3 +1,7 @@
+# ohcleandat 0.3.1
+
+* Explicitly adding `set_diff` function which was previously a hidden dependency on the {ecohealthalliance/airtabler} package
+
 # ohcleandat 0.3.0
 
 * Adding GPS obfuscation function - this function uses two methods to reduce the

R/set_diff.R

@@ -0,0 +1,37 @@
+#' Get items that differ between x and y
+#'
+#' Unlike setdiff, this function creates the union of x and y then
+#' removes values that are in the intersect, providing values
+#' that are unique to X and values that are unique to Y.
+#'
+#' @param x a set of values.
+#' @param y a set of values.
+#'
+#' @return Unique values from X and Y, NULL if no unique values.
+#' @export
+#'
+#' @examples
+#' a <- 1:3
+#' b <- 2:4
+#'
+#' set_diff(a,b)
+#' # returns 1,4
+#'
+#' x <- 1:3
+#' y <- 1:3
+#'
+#' set_diff(x,y)
+#' # returns NULL
+#'
+set_diff <- function(x,y){
+  u <- union(x,y)
+  i <- intersect(x,y)
+  j <- (u %in% i)
+
+  if(all(j)){
+    return(NULL)
+  }
+
+  diff <- u[!(j)]
+  return(diff)
+}

R/zzz.R

@@ -28,7 +28,6 @@ utils::globalVariables(
   "log_response_id",
   "n",
   "rowid",
-  "set_diff",
   "entry_field",
   "entry_field_dupe"
   )