distinct_total is missing from zero-count cells in the nested count layer

[alexhomel]

I'm trying to program an AE table that looks like this:

I'm using this code:

library(tidyverse)
library(Tplyr)

data <- tribble(~ USUBJID    , ~AEBODSYS              , ~AEDECOD                                          , ~ TRTA,
                "01-701-1302", "STOMACH DISCOMFORT"   , "GASTROINTESTINAL DISORDERS"                      , "Xanomeline High Dose",
                "01-704-1010", "ARTHRALGIA"           , "MUSCULOSKELETAL AND CONNECTIVE TISSUE DISORDERS" , "Placebo",
                "01-704-1065", "ABDOMINAL DISCOMFORT" , "GASTROINTESTINAL DISORDERS"                      , "Xanomeline High Dose",
                "01-714-1288", "ARTHRALGIA"           , "MUSCULOSKELETAL AND CONNECTIVE TISSUE DISORDERS" , "Xanomeline High Dose",
                "01-716-1311", "ABDOMINAL PAIN"       , "GASTROINTESTINAL DISORDERS"                      , "Xanomeline Low Dose",
                "01-718-1254", "ARTHRALGIA"           , "MUSCULOSKELETAL AND CONNECTIVE TISSUE DISORDERS" , "Xanomeline Low Dose",
                "01-718-1254", "ARTHRALGIA"           , "MUSCULOSKELETAL AND CONNECTIVE TISSUE DISORDERS" , "Xanomeline Low Dose",
                "01-718-1254", "ARTHRALGIA"           , "MUSCULOSKELETAL AND CONNECTIVE TISSUE DISORDERS" , "Xanomeline Low Dose")

t0 <- tplyr_table(data, TRTA, TRUE) %>%
  set_pop_data(data) %>%
  set_pop_treat_var(TRTA) %>%
  set_pop_where(TRUE) %>%
  set_count_layer_formats(
    "n_counts" = f_str("x/x (XXX.x)", distinct_n, distinct_total, distinct_pct),
  ) %>%
  add_layer(
    group_count(vars(AEBODSYS, AEDECOD)) %>%
      set_distinct_by(USUBJID)
  ) %>%
  build()

I'm getting this dataframe. All AEDECOD records with a 0 count are missing the distinct_total part.