How to mask certain cell's info from a gtsummary table

I have some sensitive info in my data that I need to hide below a certain threshold (to comply with DUA and prevent reidentifying data). I'm using tbl_svysmmary() from gtsummary. In my example, I like to filter "cell size ≤ 100":

library(gtsummary)
library(survey)

tbl_svysummary <-
  svydesign(~1, data = as.data.frame(Titanic), weights = ~Freq) %>%
  tbl_svysummary(by = Survived, percent = "row", include = c(Class, Age))

tbl_svysummary

I want to show child info as:

EDIT: Reproducible example for multiple stat_ columns and 0/1 variables:

library(gtsummary)
library(survey)

supp_outcomes <-
  as.data.frame(Titanic) %>% 
  mutate (Female=ifelse(Sex=="Female",1,0)) %>%   
  svydesign(~1, data = ., weights = ~Freq) %>%
  tbl_svysummary(by = Survived, percent = "row", 
                 include = c(Age, Female, Class)) %>% 
  add_overall() %>% add_p()

supp_outcomes

The edited code from @Marco's suggested solution:

supp_outcomes$table_body <- supp_outcomes$table_body %>% 
  mutate(extra1 = stat_0,
         extra2 = stat_1,
         extra3 = stat_2) %>% 
  separate(extra1, c("number"), sep = ' \\(') %>% 
separate(extra2, c("number"), sep = ' \\(') %>% 
separate(  extra3, c("number"), sep = ' \\(') %>% 
  mutate(number = as.numeric(number)) %>% 
  mutate(stat_0 = case_when(
    number < 200 & number > 0 & var_type %in%c("dichotomous", "categorical")~ "TOO FEW",
    TRUE ~ stat_0),
    stat_1 = case_when(
      number < 200 & number > 0 & var_type %in%c("dichotomous", "categorical")~ "TOO FEW",
      TRUE ~ stat_1),
    stat_2 = case_when(
      number < 200 & number > 0 & var_type %in%c("dichotomous", "categorical")~ "TOO FEW",
      TRUE ~ stat_2)) %>% 
  select(!number)

supp_outcomes

You can do more tidyverse manipulation on the output object like this (using the table_body):

library(tidyverse)
data(mtcars)

library(gtsummary)
output <- mtcars[,1:2] %>% tbl_summary() 

output$table_body

# A tibble: 5 × 6
  variable var_type    var_label row_type label stat_0           
  <chr>    <chr>       <chr>     <chr>    <chr> <chr>            
1 mpg      continuous  mpg       label    mpg   19.2 (15.4, 22.8)
2 cyl      categorical cyl       label    cyl   NA               
3 cyl      categorical cyl       level    4     11 (34%)         
4 cyl      categorical cyl       level    6     7 (22%)          
5 cyl      categorical cyl       level    8     14 (44%)  

# Don't show cell information when N of cyl is less than 10
output$table_body <- output$table_body %>% 
  mutate(extra = stat_0) %>% 
  separate(extra, c("number"), sep = ' \\(') %>% 
  mutate(number = as.numeric(number)) %>% 
  mutate(stat_0 = case_when(number < 10 & var_type == "categorical" ~ "TOO FEW",
                            TRUE ~ stat_0)) %>% 
  select(!number)

output

The filter decision in case_when is based on categorical variables, where you like to control the cell information, when it is less than a threshold value. You can adjust this for any other variable or condition.