No flags found
Use flags to group coverage reports by test type, project and/or folders.
Then setup custom commit statuses and notifications for each flag.
e.g., #unittest #integration
#production #enterprise
#frontend #backend
3d7ac47
... +2 ...
7baee0a
Use flags to group coverage reports by test type, project and/or folders.
Then setup custom commit statuses and notifications for each flag.
e.g., #unittest #integration
#production #enterprise
#frontend #backend
155 | 155 | #' @param labeldata labeldata to use, Default: NULL |
|
156 | 156 | #' @param psub show sub-group p-values, Default: F |
|
157 | 157 | #' @param minMax Whether to use [min,max] instead of [p25,p75] for nonnormal variables. The default is FALSE. |
|
158 | - | #' @param showpm Logical, show normal distributed continuous variables as Mean ± SD. Default: F |
|
158 | + | #' @param showpm Logical, show normal distributed continuous variables as Mean ± SD. Default: T |
|
159 | 159 | #' @return A matrix object containing what you see is also invisibly returned. This can be assinged a name and exported via write.csv. |
|
160 | 160 | #' @details DETAILS |
|
161 | 161 | #' @examples |
176 | 176 | testNormal = oneway.test, argsNormal = list(var.equal = F), |
|
177 | 177 | testNonNormal = kruskal.test, argsNonNormal = list(NULL), |
|
178 | 178 | showAllLevels = T, printToggle = F, quote = F, smd = F, Labels = F, exact = NULL, nonnormal = NULL, |
|
179 | - | catDigits = 1, contDigits = 2, pDigits = 3, labeldata = NULL, psub = T, minMax = F, showpm = F){ |
|
179 | + | catDigits = 1, contDigits = 2, pDigits = 3, labeldata = NULL, psub = T, minMax = F, showpm = T){ |
|
180 | 180 | ||
181 | 181 | . <- level <- variable <- val_label <- V1 <- V2 <- NULL |
|
182 | 182 | #if (Labels & !is.null(labeldata)){ |
215 | 215 | catDigits = catDigits, contDigits = contDigits, pDigits = pDigits, minMax = minMax) |
|
216 | 216 | rownames(ptb1) <- gsub("(mean (SD))", "", rownames(ptb1), fixed=T) |
|
217 | 217 | if (showpm){ |
|
218 | - | ptb1[!grepl("(%)", rownames(ptb1)) & ptb1[, "p"] != "", ] <- gsub("\\(", "\u00B1 ", ptb1[!grepl("(%)", rownames(ptb1)) & ptb1[, "p"] != "", ] ) |
|
219 | - | ptb1[!grepl("(%)", rownames(ptb1)) & ptb1[, "p"] != "", ] <- gsub("\\)", "", ptb1[!grepl("(%)", rownames(ptb1)) & ptb1[, "p"] != "", ] ) |
|
218 | + | ptb1[!grepl("(%)", rownames(ptb1)), ] <- gsub("\\(", "\u00B1 ", ptb1[!grepl("(%)", rownames(ptb1)), ] ) |
|
219 | + | ptb1[!grepl("(%)", rownames(ptb1)), ] <- gsub("\\)", "", ptb1[!grepl("(%)", rownames(ptb1)), ] ) |
|
220 | 220 | } |
|
221 | 221 | cap.tb1 <- "Total" |
|
222 | 222 | #if (Labels & !is.null(labeldata)){ |
121 | 121 | #' @param labeldata labeldata to use, Default: NULL |
|
122 | 122 | #' @param psub show sub-group p-values, Default: F |
|
123 | 123 | #' @param minMax Whether to use [min,max] instead of [p25,p75] for nonnormal variables. The default is FALSE. |
|
124 | - | #' @param showpm Logical, show normal distributed continuous variables as Mean ± SD. Default: F |
|
124 | + | #' @param showpm Logical, show normal distributed continuous variables as Mean ± SD. Default: T |
|
125 | 125 | #' @return A matrix object containing what you see is also invisibly returned. This can be assinged a name and exported via write.csv. |
|
126 | 126 | #' @details DETAILS |
|
127 | 127 | #' @examples |
140 | 140 | ||
141 | 141 | svyCreateTableOneJS <- function(vars, strata = NULL, strata2 = NULL, data, factorVars = NULL, includeNA = F, test = T, |
|
142 | 142 | showAllLevels = T, printToggle = F, quote = F, smd = F, Labels = F, nonnormal = NULL, |
|
143 | - | catDigits = 1, contDigits = 2, pDigits = 3, labeldata = NULL, psub = T, minMax = F, showpm = F){ |
|
143 | + | catDigits = 1, contDigits = 2, pDigits = 3, labeldata = NULL, psub = T, minMax = F, showpm = T){ |
|
144 | 144 | ||
145 | 145 | . <- level <- variable <- val_label <- V1 <- V2 <- NULL |
|
146 | 146 |
177 | 177 | rownames(ptb1) <- gsub("(mean (SD))", "", rownames(ptb1), fixed=T) |
|
178 | 178 | ||
179 | 179 | if (showpm){ |
|
180 | - | ptb1[!grepl("(%)", rownames(ptb1)) & ptb1[, "p"] != "", ] <- gsub("\\(", "\u00B1 ", ptb1[!grepl("(%)", rownames(ptb1)) & ptb1[, "p"] != "", ] ) |
|
181 | - | ptb1[!grepl("(%)", rownames(ptb1)) & ptb1[, "p"] != "", ] <- gsub("\\)", "", ptb1[!grepl("(%)", rownames(ptb1)) & ptb1[, "p"] != "", ] ) |
|
180 | + | ptb1[!grepl("(%)", rownames(ptb1)), ] <- gsub("\\(", "\u00B1 ", ptb1[!grepl("(%)", rownames(ptb1)), ] ) |
|
181 | + | ptb1[!grepl("(%)", rownames(ptb1)), ] <- gsub("\\)", "", ptb1[!grepl("(%)", rownames(ptb1)), ] ) |
|
182 | 182 | } |
|
183 | 183 | ||
184 | 184 | cap.tb1 <- "Total - weighted data" |
Learn more Showing 2 files with coverage changes found.
R/svyCreateTableOneJS.R
R/CreateTableOneJS.R
Files | Coverage |
---|---|
R | +1.28% 85.87% |
Project Totals (12 files) | 85.87% |
7baee0a
7539d2a
87af719
3d7ac47