R/pull_distinct.R

In Kidapt/keda: A Package to Support Exploratory Data Analysis

#' pulls all distinct values of a variable from a dataset
#'
#' pulls all distinct values of a variable from a dataset
#' @param data is the data
#' @param x is the variable you want a vector of distinct values from
#' @keywords pull distinct
#' @export
#' @examples
#' mtcars %>% pull_distinct(cyl)

pull_distinct <- function(data, x){
  x <- enquo(x)
  data %>%
    distinct(!!x) %>%
    pull(!!x)
}