## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----results='asis', echo=FALSE, message=FALSE--------------------------------
library(surveytable)
set_opts(output = "kableExtra")
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 = "kableExtra")

## ----results='asis', echo=FALSE-----------------------------------------------
tab("AGER")

## -----------------------------------------------------------------------------
set_opts(output = "auto")

## ----results='asis', echo=FALSE-----------------------------------------------
tab("AGER")

## -----------------------------------------------------------------------------
set_opts(output = "raw")

## ----echo=FALSE---------------------------------------------------------------
print(tab("AGER"), destination = "")

## -----------------------------------------------------------------------------
set_opts(output = "auto")

## ----echo=FALSE---------------------------------------------------------------
set_opts(output = "excel", file = "my_workbook", .file_temp = TRUE)

## -----------------------------------------------------------------------------
total()
tab("AGER")

## -----------------------------------------------------------------------------
set_opts(output = "auto")

## ----echo=FALSE---------------------------------------------------------------
set_opts(output = "csv", file = "my_output", .file_temp = TRUE)

## -----------------------------------------------------------------------------
total()
tab("AGER")

## -----------------------------------------------------------------------------
set_opts(output = "auto")

## ----results='asis', echo=FALSE-----------------------------------------------
tab("AGER")

## -----------------------------------------------------------------------------
tab("AGER") |> as.data.frame()

## -----------------------------------------------------------------------------
tab("AGER") |> as.data.frame() |> gt::gt()