R/gunique.R

In timeplyr: Fast Tidy Tools for Date and Date-Time Manipulation

gduplicated <- function(x, g = NULL, order = TRUE, all = FALSE){
  # out_nms <- names(x)
  if (is.null(g)){
    g <- GRP2(x, sort = order,
              return.groups = FALSE,
              return.order = TRUE)
  } else {
    g <- GRP2(
      cheapr::new_df(
        g1 = fastplyr::group_id(g, order = order),
        g2 = fastplyr::group_id(x, order = order)
      ),
      sort = order,
      return.groups = FALSE,
      return.order = TRUE
    )
  }
  GRP_duplicated(g, all = all)
}
gorder <- function(x, g = NULL, order = TRUE){
  if (is.null(g)){
    order <- radixorderv2(x)
  } else {
    order <- radixorderv2(
      cheapr::new_df(
        g1 = fastplyr::group_id(g, order = order),
        g2 = fastplyr::group_id(x, order = TRUE)
      )
    )
  }
  order
}
# Is data sorted within each group?
# Data need not be sorted over the entire data.
gis_sorted <- function(x, g = NULL, order = TRUE){
  isTRUE(attr(gorder(x, g = g, order = order), "sorted"))
}
gany <- function(x, g = NULL, order = TRUE){
  if (is.null(g)){
    any(x)
  } else {
    collapse::fsum(x, g = fastplyr::group_id(g, order = order, as_qg = TRUE)) != 0L
  }
}