library(tidyverse)
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.5
## ✔ forcats   1.0.0     ✔ stringr   1.5.1
## ✔ ggplot2   3.5.1     ✔ tibble    3.2.1
## ✔ lubridate 1.9.3     ✔ tidyr     1.3.1
## ✔ purrr     1.0.2     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
library(reactable)

counts <- palmerpenguins::penguins |>
  filter(!is.na(sex)) |> 
  dplyr::count(species, island, sex) |> 
  pivot_wider(
    names_from  = sex,
    values_from = n
  ) 


counts |> 
  reactable(
    groupBy = 'species',
    columns = list(
      species = colDef(
        footer = 'Total',
        footerStyle = 'font-weight: 600;'
      ),
      island = colDef(
        filterable = TRUE
      ),
      female = colDef(
        aggregate = 'sum',
        footer = function(values, col_names) {
          sum(values)
        }
      ),
      male = colDef(
        aggregate = 'sum',
        footer = function(values, col_names) {
          sum(values)
        }
      )
    )
  )

counts |> 
  reactable(
    groupBy = 'species',
    defaultExpanded = TRUE,
    columns = list(
      species = colDef(
        footer = 'Total',
        footerStyle = 'font-weight: 600;'
      ),
      island = colDef(
        filterable = TRUE
      ),
      female = colDef(
        aggregate = 'sum',
        footer = JS("function(column, state) {
          let total = 0;
          state.sortedData.forEach(function(row) {
            total += row[column.id];
          });
          return total;
        }")
      ),
      male = colDef(
        aggregate = 'sum',
        footer = JS("function(column, state) {
          let total = 0;
          state.sortedData.forEach(function(row) {
            total += row[column.id];
          });
          return total;
        }")
      )
    )
  )