allow inverting a filter for rows

R/helpers.R

@@ -791,8 +791,18 @@
     for(i in seq_along(row)){
 
       if(names(row)[i] == "position"){
+        inVal <- 1
+        outVal <- 0
+
+        if(any(names(row) %in% "invert")){
+          if(row$invert){
+            inVal <- 0
+            outVal <- 1
+          }
+        }
+
         rows <- input %>%
-          mutate(it = if_else(row_number() %in% row[[i]], 1, 0)) %>%
+          mutate(it = if_else(row_number() %in% row[[i]], inVal, outVal)) %>%
           pull(it)
       } else if(names(row)[i] == "find"){
 

R/schema.R

@@ -162,7 +162,7 @@ setValidity(Class = "schema", function(object){
       errors <- c(errors, "'names(schema$format)' must be a permutation of set {header,del,dec,na,flags}")
     }
     if(!is.null(object@format$header)){
-      if(!is.integer(object@format$header)){
+      if(!is_integerish(object@format$header)){
         errors <- c(errors, "'schema$format$header' must must have a integer value.")
       }
     }

R/setFilter.R

@@ -7,6 +7,8 @@
 #' @param rows [\code{integerish(.)}]\cr rows that are mentioned here are kept.
 #' @param columns [\code{integerish(.)}]\cr columns that are mentioned here are
 #'   kept.
+#' @param invert [\code{logical(1)}]\cr whether or not to invert the specified
+#'   columns or rows.
 #' @param operator [\code{function(1)}]\cr \code{\link[base]{Logic}} operators
 #'   by which the current filter should be combined with the directly preceeding
 #'   filter; hence this argument is not used in case no other filter was defined
@@ -27,10 +29,10 @@
 #'
 #' reorganise(schema = schema, input = input)
 #' @family functions to describe table arrangement
-#' @importFrom checkmate assertClass testIntegerish testClass
+#' @importFrom checkmate assertClass testIntegerish testClass assertLogical
 #' @export
 
-setFilter <- function(schema = NULL, rows = NULL, columns = NULL,
+setFilter <- function(schema = NULL, rows = NULL, columns = NULL, invert = FALSE,
                       operator = NULL){
 
   # assertions ----
@@ -43,6 +45,7 @@ setFilter <- function(schema = NULL, rows = NULL, columns = NULL,
   assert(colInt, colList)
   if(rowList) assertSubset(x = names(rows), choices = c("find"))
   if(colList) assertSubset(x = names(columns), choices = c("find"))
+  assertLogical(x = invert, any.missing = FALSE)
 
   # update schema ----
   if(is.null(schema)){
@@ -55,7 +58,7 @@ setFilter <- function(schema = NULL, rows = NULL, columns = NULL,
 
   if(!is.null(rows)){
     if(!is.list(rows)){
-      rows <- list(position = rows)
+      rows <- list(position = rows, invert = invert)
     }
     if(!is.null(schema@filter$row)){
       rows <- c(operator = operator, rows)

R/setFormat.R

@@ -33,12 +33,12 @@
 #' @importFrom dplyr bind_rows
 #' @export
 
-setFormat <- function(schema = NULL, header = 0L, decimal = NULL,
+setFormat <- function(schema = NULL, header = 0, decimal = NULL,
                       thousand = NULL, na_values = NULL, flags = NULL){
 
   # assertions ----
   assertClass(x = schema, classes = "schema", null.ok = TRUE)
-  assertIntegerish(x = header, len = 1, lower = 0L, any.missing = FALSE)
+  assertIntegerish(x = header, len = 1, lower = 0, any.missing = FALSE)
   assertCharacter(x = decimal, len = 1, any.missing = FALSE, null.ok = TRUE)
   assertCharacter(x = thousand, len = 1, any.missing = FALSE, null.ok = TRUE)
   assertCharacter(x = na_values, any.missing = FALSE, null.ok = TRUE)