🚀 negated in function

NAMESPACE

@@ -1,5 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
+export("%notin%")
 export(misc_sanitizeNames)
 export(sp_replaceGriddedNA)
 export(sp_resampleRas)

R/misc_notIn.R

@@ -0,0 +1,19 @@
+#' Inverse of 'in' call
+#'
+#' @description
+#' Calculates the set of entries not present in the second vector.
+#' Added for convenience since this is not supported by default in R.
+#'
+#' @param a First [`vector`] object.
+#' @param b Second [`vector`] object.
+#'
+#' @returns A [`vector`] of [`logical`] entries of \code{'a'} not present in \code{'b'}.
+#' @examples
+#' # example code
+# lu <- c("Forest", "Cropland", "Wetland", "OtherLand")
+# lu2 <- c("Forest", "Wetland", "otherland")
+# which(lu %notin% lu2)
+#' @keywords utils
+#' @author Martin Jung
+#' @export
+`%notin%` = function(a, b){!(a %in% b)}

tests/testthat/test-misc_tests.R

@@ -1,3 +1,9 @@
-test_that("Basic unit tests for misc functions", {
+test_that("Basic unit tests for small misc functions", {
   expect_equal(misc_sanitizeNames("Climate-temperature2015"), "Climate_temperature2015")
+
+  # Not in function\
+  lu <- c("Forest", "Cropland", "Wetland", "OtherLand")
+  lu2 <- c("Forest", "Wetland", "otherland")
+  test <- which(lu %notin% lu2)
+  expect_equal(test, c(2,4))
 })