Resolved: Format numbers in tbl_summary gtsummary r

data<-
  data.frame(variable1 = rep(1:4, each = 10000)) %>%
  mutate(
    variable1 =
      case_when(
        variable1 %in% 1 ~ "Dog",
        variable1 %in% 2 ~ "Cat",
        variable1 %in% 3 ~ "Lion",
        variable1 %in% 4 ~ "Tiger"
      )
  )

data %>% 
  tbl_summary()

library(gtsummary)
packageVersion("gtsummary")
#> [1] '1.6.0'

style_number_10K <- function(x) paste0(style_number(x, scale = 0.001), "K")
style_number_10K(10002)
#> [1] "10K"

data <-
  data.frame(variable1 = rep(1:4, each = 10000)) %>%
  mutate(
    variable1 =
      dplyr::case_when(
        variable1 %in% 1 ~ "Dog",
        variable1 %in% 2 ~ "Cat",
        variable1 %in% 3 ~ "Lion",
        variable1 %in% 4 ~ "Tiger"
      )
  )

tbl <-
  data %>% 
  tbl_summary(
    digits = all_categorical() ~ list(style_number_10K, 0)
  )