R/select_distinct.R

In BAAQMD/tbltools: Read/Write and Manipulate Tabular Data

#' Select (and arrange) distinct items
#'
#' @importFrom dplyr select distinct arrange
#'
#' @export
select_distinct <- function (input_data, ...) {
  selected <- distinct(dplyr::select(input_data, ...))
  ensured <- ensure_distinct(selected, ...)
  arrange(ensured, ...)
}