## ----include = FALSE---------------------------------------------------------- knitr::opts_chunk$set( collapse = TRUE, comment = "#>" ) ## ----results='asis'----------------------------------------------------------- library(surveytable) set_survey(namcs2019sv) ## ----results='asis'----------------------------------------------------------- tab("AGER") ## ----results='asis'----------------------------------------------------------- for (vr in c("AGER", "SEX")) { print( tab_subset(vr, "MAJOR", "Preventive care") ) } ## ----------------------------------------------------------------------------- set_opts(output = "huxtable") ## ----echo=FALSE--------------------------------------------------------------- print(tab("AGER"), destination = "") ## ----results='asis', echo=FALSE----------------------------------------------- tab("AGER") ## ----------------------------------------------------------------------------- set_opts(output = "gt") ## ----results='asis', echo=FALSE----------------------------------------------- print(tab("AGER"), destination = "") ## ----results='asis', echo=FALSE----------------------------------------------- tab("AGER") ## ----------------------------------------------------------------------------- set_opts(output = "kableExtra") ## ----results='asis', echo=FALSE----------------------------------------------- tab("AGER") ## ----------------------------------------------------------------------------- set_opts(output = "auto") ## ----echo=FALSE--------------------------------------------------------------- print(tab("AGER"), destination = "") ## ----results='asis', echo=FALSE----------------------------------------------- tab("AGER") ## ----------------------------------------------------------------------------- tab("AGER") |> as.data.frame() ## ----------------------------------------------------------------------------- set_opts(count = "1k") tab("AGER") |> gt::gt() ## ----results='asis', echo=FALSE----------------------------------------------- tab("AGER") ## ----results='asis', echo=FALSE----------------------------------------------- tab("AGER")