Is it possible to exclude columns from "groupBy" in reactable?

Question

I have a list of University's sorted by rank:

rank  uni                            data
1     Stanford University            1
1     Stanford University            5
1     Stanford University            3
2     Yale University                2
3     University of Pennsylvania     8

I want to group by uni, and aggregate the data. When there's multiple rows for the same uni, the aggregated value is shown at the top and you can expand it to show the individual rows.

I want to exclude rank from the "groupBy" process. I want to always see rank on the left, in the first column, and when expanding a uni, subsequent individual rows of rank are empty. With the following code, rank is only visible when a uni is expanded:

    reactable(
      df,
      groupBy = "University",
      columns = list(
        rank = colDef(align = "center"), 
        uni= colDef(name = "Psychology School"),
        value = colDef(aggregate = "mean")))

I can aggregate the rank column by unique values, but then when unis are expanded, the rank column just repeats the rank for each row and it looks a mess:

    reactable(
      df,
      groupBy = "University",
      columns = list(
        rank = colDef(aggregate = "unique", align = "center"), 
        uni= colDef(name = "Psychology School"),
        value = colDef(aggregate = "mean")))

Can anyone offer any suggestions? Many thanks!

score 0 · Answer 1 · answered Mar 29 '22 at 13:45

Here is how I got around this issue.

# creating a dataframe 
df <- data.frame(uni = c("su","su","su","yu", "up"),
                 rank = c(1,1,1,2,3),
                 value = c(1,5,3,2,8))

# creating the summary table that will show at the top 
data <- df %>% 
  group_by(uni) %>% 
  summarize(
    value_mean = mean(value),
    rank = unique(rank)
  ) 

# Use the summary data (data table) and embed the 
# details in each row from df table.
reactable(
  data,
  details = function(index){
    mean_df <- dplyr::filter(df, 
                      uni == data$uni[index]) %>% 
      select(value) 
    tbl <- reactable(mean_df, outlined = TRUE, highlight = TRUE, fullWidth = FALSE)
    htmltools::div(style = list(margin = "12px 45px"), tbl)
  },
  onClick = "expand",
  rowStyle = list(cursor = "pointer")
)

Is it possible to exclude columns from "groupBy" in reactable?

1 Answers1