R/summarise_vp_flow_all_years.R

In virtual-pollination-trade/virtual-biotic-pollination-flow:

#' Summarise vp_flow data for all years
#'
#' @description Used when all years are choosed in the input panel
#'
#' @param data filtered data by `distinct_countries()`
#'
#' @return a tibble
#'
#' @importFrom dplyr group_by summarise filter arrange ungroup
#'
#' @export
#'
summarise_vp_flow_all_years <- function(data) {

  data %>%
    dplyr::group_by(
      reporter_countries,
      partner_countries,
      reporter_long,
      reporter_lat,
      reporter_hdi,
      partner_long,
      partner_lat,
      partner_hdi,
    ) %>%
    dplyr::summarise(
      vp_flow = sum(vp_flow),
    ) %>%
    dplyr::filter(vp_flow > 0) %>%
    dplyr::arrange(vp_flow) %>%
    dplyr::ungroup()

}