R/subset_empty.R

In ntyndall/detectR:

Defines functions subset_empty

Documented in subset_empty

#' @title Subset Empty
#'
#' @export


subset_empty <- function(z) {
  z %<>% subset(z != "")
  return(if (z %>% length %>% `>`(0)) z else "")
}