R/cb_page.R

In bonschorno/sep: Swiss Environmental Panel data

#' Page with Codebook Table for one variabe
#'
#' @param metadata  a \code{data.frame} object with survey metadata
#' @param num.var single numeric value indexing column of variable in metadata
#' @param comment optional character argument to add text below table
#' @param lbl.space optional argument to adjust table space between variable information and German value labels (defaults to 1em)
#' @param lblen.space optional argument to adjust table space between German value labels and English value labels (defaults to 1em)
#' @param mis.space optional argument to adjust table space between English value labels and missing labels (defaults to 1em)
#'
#' @return codebook page for one variable in Latex format
#' @export
#'
cb_page <-
  function(metadata, num.var,
           comment = "", lbl.space = "1em", lblen.space = "1em", mis.space = "1em"){

    cb_table(metadata = metadata, num.var = num.var, lbl.space = lbl.space,
                 lblen.space = lblen.space, mis.space = mis.space)

    cat("\n")
    cat(comment, sep = "\n")
    cat("\n")
    cat("\\newpage")
  }