library(dplyr, warn.conflicts = FALSE, quiet = TRUE)
for(i in 1:2) {
  data.frame(p.value = 0.9999) %>%
    gt::gt() %>%
    gt::fmt(everything(), fns = gtsummary::style_pvalue) %>%
    print() 
}

p.value
0.9

p.value
0.9

# it is meant to have a '>' in front
gtsummary::style_pvalue(0.9999)

[1] “>0.9”