#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.