R/varExtracted.R

In yikeshu0611/nhanesR: Tools for "NHANES" Database

#' variable extracted information
#'
#' @param x result of nhs_read()
#'
#' @return kable
#' @export
#'
varExtracted <- function(x){
    varnamelabel <- attr(x,'varnameLabel')
    kableExtra::kbl(varnamelabel,escape = FALSE) |>
        kableExtra::kable_paper("striped") |>
        kableExtra::kable_classic(full_width=FALSE)
}