R/dplyr-count.R

In galah: Biodiversity Data from the GBIF Node Network

#' Count the observations in each group
#' 
#' `count()` lets you quickly count the unique values of one or more variables. 
#' It is evaluated lazily. `add_count()` is an equivalent that uses `mutate()`
#' to add a new column with group-wise counts.
#' @name count.data_request
#' @param x An object of class `data_request`, created using [galah_call()]
#' @param wt currently ignored
#' @param ... currently ignored
#' @param sort currently ignored
#' @param name currently ignored
#' @export
count.data_request <- function(x, 
                               ..., 
                               wt, 
                               sort, 
                               name){
  x |>
    group_by(...) |>
    update_request_object(count = TRUE)
}

#' @rdname count.data_request
#' @export
add_count.data_request <- function(x,
                                  ...,
                                   wt = NULL,
                                   sort = FALSE,
                                   name = NULL){
  update_request_object(x, 
                        add_count = TRUE)
}