hide_rows and tabfreq_svy overall column

DESCRIPTION

@@ -17,7 +17,7 @@ Imports:
     survey, 
     survival,
     xtable
-RoxygenNote: 6.1.1
+RoxygenNote: 7.1.1
 Suggests: 
     rmarkdown
 VignetteBuilder: knitr

NAMESPACE

@@ -1,6 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
 export(formatp)
+export(hide_rows)
 export(tabcoxph)
 export(tabfreq)
 export(tabfreq.svy)

R/hide_rows.R

@@ -0,0 +1,24 @@
+#' Hide rows of selected levels of dichotomous variables from a Table
+#' (e.g. "no" category of Smoking)
+#'
+#' @param tab Data frame.
+#' @param rows Character string with name of levels (rows) which should be hidden.
+#'
+#' @return Data frame which you can print in R (e.g. with \strong{xtable}'s
+#' \code{\link[xtable]{xtable}} or \strong{knitr}'s \code{\link[knitr]{kable}}).
+#'
+#' @examples
+#' # Compare age, sex, and race by treatment group
+#' # Hide level "Male" of Variable "sex"
+#' tabmulti(Age + Sex + Race ~ Group, data = tabdata) %>% hide_rows(rows = c("male")) %>% kable()
+#'
+#'
+#' @export
+hide_rows <- function(tab, rows, ...){
+
+  rows <- paste("\\ \\ \\ ", tolower(rows), sep = "")
+  tab <- tab[which(!tolower(tab$Variable) %in% rows),]
+
+  return(tab)
+
+}

R/tabfreq_svy.R

@@ -224,7 +224,7 @@ tabfreq.svy <- function(formula,
       } else if (cell == "N") {
         part1 <- rowsums.svycounts
       } else if (cell == "col.percent") {
-        part1 <- percents
+        part1 <- paste(sprintf(spf, percents), sep = "")
       }
       if (parenth == "none") {
         part2 <- NULL
@@ -233,9 +233,9 @@ tabfreq.svy <- function(formula,
       } else if (parenth == "N") {
         part2 <- rowsums.svycounts
       } else if (parenth == "col.percent") {
-        part2 <- percents
+        part2 <- paste(" (", sprintf(spf, percents), ")", sep = "") #percents
       } else if (parenth == "se") {
-        part2 <- ses
+        part2 <- paste("(", sprintf(spf, ses), ")", sep = "")
       } else if (parenth == "ci") {
         zcrit <- qnorm(p = 0.975)
         lower <- percents - zcrit * ses