Compare 3d7ac47 ... +2 ... 7baee0a

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

Learn more about Codecov Flags here.

Showing 2 of 5 files from the diff.

@@ -155,7 +155,7 @@
Loading
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,7 +176,7 @@
Loading
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,8 +215,8 @@
Loading
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,7 +121,7 @@
Loading
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,7 +140,7 @@
Loading
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,8 +177,8 @@
Loading
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.

Changes in R/svyCreateTableOneJS.R
-4
+4
Loading file...
Changes in R/CreateTableOneJS.R
-6
+6
Loading file...
Files Coverage
R +1.28% 85.87%
Project Totals (12 files) 85.87%
Loading