R/group.R

In nfrerebeau/odyssey: Access documents from the Open Archive HAL

# GROUP RESULTS
#' @include AllGenerics.R
NULL

#' @rdname hal_group
#' @export
hal_group.HALQuery <- function(x, field, limit = 1, sort = "score",
                               decreasing = FALSE, ...) {
  # Prevent grouping and faceting
  if (!is.null(x$facet)) x$facet <- "false"

  x$group <- "true"
  x$group.field <- field
  x$group.limit <- limit
  param <- ifelse(decreasing, "desc", "asc")
  x$group.sort <- sprintf("%s %s", sort, param)
  x
}