R/filter_out.r

In Helseatlas/shinymap: R-package to produce shiny maps of Norway

#' Filter routine
#'
#' @param datasett Original dataset
#' @param filter1 level1 filter
#' @param filter2 level2 filter
#' @param filter3 level3 filter
#'
#' @return datasett
#' @export
#'
filter_out <- function(datasett, filter1 = NULL, filter2 = NULL, filter3 = NULL) {

  # filter out level1
  if (!is.null(filter1)) {
    if ("level1_name" %in% colnames(datasett)) {
      datasett <- try(dplyr::filter(datasett, get("level1_name") == filter1))
    }
  }

  # filter out level2
  if (!is.null(filter2)) {
    if ("level2_name" %in% colnames(datasett)) {
      datasett <- try(dplyr::filter(datasett, get("level2_name") == filter2))
    }
  }

  if (!is.null(filter3)) {
    # filter out level3
    if ("level3_name" %in% colnames(datasett)) {
      datasett <- try(dplyr::filter(datasett, get("level3_name") == filter3))
    }
  }

  return(datasett)
}