test

text before table

library(gtsummary)

gt_tbl <- pressure %>%
  gtsummary::tbl_summary() %>%
  as_gt()

text after table

knitr::is_html_output()

[1] TRUE

knitr::is_latex_output()

[1] FALSE

gt_tbl

Characteristic	N = 191
temperature	180 (80, 280)
pressure	9 (0, 157)
1 Median (Q1, Q3)

save for future

knitr::include_graphics("myannimategif.gif")

knitr::include_graphics("myannimategif.png")