I got length() to work as a grand summary:
library(tidyverse)
library(gt)
exibble %>% select(group, char, date, num) %>%
gt(groupname_col = "group") %>%
summary_rows(
groups = NULL,
columns = vars(num),
fns = list(len = ~length(.)
))
|
char |
date |
num |
| grp_a |
|
|
|
|
apricot |
2015-01-15 |
1.111e-01 |
|
banana |
2015-02-15 |
2.222e+00 |
|
coconut |
2015-03-15 |
3.333e+01 |
|
durian |
2015-04-15 |
4.444e+02 |
| grp_b |
|
|
|
|
NA |
2015-05-15 |
5.550e+03 |
|
fig |
2015-06-15 |
NA |
|
grapefruit |
NA |
7.770e+05 |
|
honeydew |
2015-08-15 |
8.880e+06 |
| len |
— |
— |
8.00 |
Created on 2020-04-13 by the reprex package (v0.3.0)
But when groups = T, no summary is produced:
library(tidyverse)
library(gt)
exibble %>% select(group, char, date, num) %>%
gt(groupname_col = "group") %>%
summary_rows(
groups = T,
columns = vars(group),
fns = list(len = ~length(.)
))
| char |
date |
num |
| grp_a |
|
|
| apricot |
2015-01-15 |
1.111e-01 |
| banana |
2015-02-15 |
2.222e+00 |
| coconut |
2015-03-15 |
3.333e+01 |
| durian |
2015-04-15 |
4.444e+02 |
| grp_b |
|
|
| NA |
2015-05-15 |
5.550e+03 |
| fig |
2015-06-15 |
NA |
| grapefruit |
NA |
7.770e+05 |
| honeydew |
2015-08-15 |
8.880e+06 |
Created on 2020-04-13 by the reprex package (v0.3.0)