Added convenience function for filtering

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: JACUSA2helper
 Type: Package
 Title: Post-processing for JACUSA2 output
-Version: 1.98
+Version: 1.98-1
 Depends: R (>= 2.10)
 Date: 2019-11-10
 Author: Michael Piechotta

NAMESPACE

@@ -22,6 +22,7 @@ export(copy_attr)
 export(cov_col)
 export(coverage)
 export(extract_ref)
+export(filter_all_artefacts)
 export(filter_artefact)
 export(filter_by)
 export(filter_by_max_score)

R/helper-filter.R

@@ -40,3 +40,19 @@ filter_artefact <- function(filter, artefacts) {
 
   grepl(paste0(artefacts, collapse = "|"), filter)
 }
+
+#' Filters all sites with an artefact
+#'
+#' Removes sites that sites that have been marked by any feature/artefact filter. 
+#' @param filter vector of strings that contains artefact filter information. 
+#' @return vector of logical.
+#' @examples
+#' data(rdd)
+#' # remove sites that are marked by artefact filter "D"
+#' grouped <- group_by_site(rdd)
+#' filtered <- filter_by(grouped, filter_all_artefacts(filter))
+#' str(filtered)
+#' @export
+filter_all_artefacts <- function(filter) {
+  filter_artefact(filter, c(paste0('\\', EMPTY)))
+}