Can you make sub_small_vals() work with summary_rows

[olivroy]

An issue was opened about this #1878

mtcars %>% 
  select(mpg, vs) %>% 
  gt::gt(groupname_col = "vs") %>% 
  gt::summary_rows(fns = "mean") %>% 
  gt::sub_small_vals(threshold = 18, small_pattern = "small") %>%
  gt::tab_options(row_group.as_column = TRUE)

I would like the mean for group 0 to be substituted as small too ?

[olivroy]

As a workaround I defined a function that puts missing when values are too small

mean_na_small <- function(x) {
  my_mean<- sum(x, na.rm = TRUE)
  my_mean<- ifelse(my_mean< 18, NA, my_mean)
  my_mean
}

along with the missing_text argument of summary_rows(). missing_text = "small"