Compare ⋅ jinseob2kim/jstable

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.

99.39% 100.00% +4.88%

R/CreateTableOneJS.R changed.

68.38% 100.00% +4.41%

R/svyCreateTableOneJS.R changed.

Other files ignored by Codecov

NEWS.md has changed.

man/svyCreateTableOneJS.Rd has changed.

man/CreateTableOneJS.Rd has changed.

@@ -155,7 +155,7 @@

Loading

#' @param labeldata labeldata to use, Default: NULL
#' @param psub show sub-group p-values, Default: F
#' @param minMax Whether to use [min,max] instead of [p25,p75] for nonnormal variables. The default is FALSE.
#' @param showpm Logical, show normal distributed continuous variables as Mean ± SD. Default: F 
#' @param showpm Logical, show normal distributed continuous variables as Mean ± SD. Default: T 
#' @return A matrix object containing what you see is also invisibly returned. This can be assinged a name and exported via write.csv.
#' @details DETAILS
#' @examples 

@@ -176,7 +176,7 @@

Loading

                            testNormal = oneway.test, argsNormal = list(var.equal = F),
                            testNonNormal = kruskal.test, argsNonNormal = list(NULL), 
                            showAllLevels = T, printToggle = F, quote = F, smd = F, Labels = F, exact = NULL, nonnormal = NULL, 
                            catDigits = 1, contDigits = 2, pDigits = 3, labeldata = NULL, psub = T, minMax = F, showpm = F){
                            catDigits = 1, contDigits = 2, pDigits = 3, labeldata = NULL, psub = T, minMax = F, showpm = T){
  
  . <- level <- variable <- val_label <- V1 <- V2 <- NULL
  #if (Labels & !is.null(labeldata)){

@@ -215,8 +215,8 @@

Loading

                 catDigits = catDigits, contDigits = contDigits, pDigits = pDigits, minMax = minMax)
    rownames(ptb1) <- gsub("(mean (SD))", "", rownames(ptb1), fixed=T)
    if (showpm){
      ptb1[!grepl("(%)", rownames(ptb1)) & ptb1[, "p"] != "", ] <- gsub("\\(", "\u00B1 ", ptb1[!grepl("(%)", rownames(ptb1)) & ptb1[, "p"] != "", ] )
      ptb1[!grepl("(%)", rownames(ptb1)) & ptb1[, "p"] != "", ] <- gsub("\\)", "", ptb1[!grepl("(%)", rownames(ptb1)) & ptb1[, "p"] != "", ] )
      ptb1[!grepl("(%)", rownames(ptb1)), ] <- gsub("\\(", "\u00B1 ", ptb1[!grepl("(%)", rownames(ptb1)), ] )
      ptb1[!grepl("(%)", rownames(ptb1)), ] <- gsub("\\)", "", ptb1[!grepl("(%)", rownames(ptb1)), ] )
    }
    cap.tb1 <- "Total"
    #if (Labels & !is.null(labeldata)){

@@ -121,7 +121,7 @@

Loading

#' @param labeldata labeldata to use, Default: NULL
#' @param psub show sub-group p-values, Default: F
#' @param minMax Whether to use [min,max] instead of [p25,p75] for nonnormal variables. The default is FALSE.
#' @param showpm Logical, show normal distributed continuous variables as Mean ± SD. Default: F 
#' @param showpm Logical, show normal distributed continuous variables as Mean ± SD. Default: T 
#' @return A matrix object containing what you see is also invisibly returned. This can be assinged a name and exported via write.csv.
#' @details DETAILS
#' @examples 

@@ -140,7 +140,7 @@

Loading


svyCreateTableOneJS <- function(vars, strata = NULL, strata2 = NULL, data, factorVars = NULL, includeNA = F, test = T,
                            showAllLevels = T, printToggle = F, quote = F, smd = F, Labels = F, nonnormal = NULL, 
                            catDigits = 1, contDigits = 2, pDigits = 3, labeldata = NULL, psub = T, minMax = F, showpm = F){
                            catDigits = 1, contDigits = 2, pDigits = 3, labeldata = NULL, psub = T, minMax = F, showpm = T){
  
  . <- level <- variable <- val_label <- V1 <- V2 <- NULL
  

@@ -177,8 +177,8 @@

Loading

    rownames(ptb1) <- gsub("(mean (SD))", "", rownames(ptb1), fixed=T)
    
    if (showpm){
      ptb1[!grepl("(%)", rownames(ptb1)) & ptb1[, "p"] != "", ] <- gsub("\\(", "\u00B1 ", ptb1[!grepl("(%)", rownames(ptb1)) & ptb1[, "p"] != "", ] )
      ptb1[!grepl("(%)", rownames(ptb1)) & ptb1[, "p"] != "", ] <- gsub("\\)", "", ptb1[!grepl("(%)", rownames(ptb1)) & ptb1[, "p"] != "", ] )
      ptb1[!grepl("(%)", rownames(ptb1)), ] <- gsub("\\(", "\u00B1 ", ptb1[!grepl("(%)", rownames(ptb1)), ] )
      ptb1[!grepl("(%)", rownames(ptb1)), ] <- gsub("\\)", "", ptb1[!grepl("(%)", rownames(ptb1)), ] )
    }
    
    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...

7baee0a

Hiding 2 contexual commits

+14

-14

3d7ac47

Files		•	•	•	Coverage
R	ø	+14	ø	-14	^+1.28% 85.87%
Project Totals (12 files)	1,090	936	0	154	85.87%

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

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"

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

No flags found

Show failed CI and contexual commits `c`

4 Commits

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)){

Navigation	Overlay
`t` Navigate files	`h` Toggle hits
`y` Change url to tip of branch	`m` Toggle misses
`b / v` Jump to prev/next hit line	`p` Toggle partial
`z / x` Jump to prev/next missed or partial line	`1..9` Toggle flags
`shift + o` Open current page in GitHub	`a` Toggle all on
`/ or ?` Show keyboard shortcuts dialog	`c` Toggle context lines or commits

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

No flags found

Show failed CI and contexual commits c 4 Commits

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

Show failed CI and contexual commits `c`

4 Commits