Compare `357f30c ... +3 ... 1a375bf`

1		-	#### Benford ####
	1	+	### TODO
	2	+	# - last-two digits
	3	+	# - verificar se os números do last-two são inteiros (resto da divisão por 1)
	4	+	# - possível solução: se todos forem inteiros, "arrendodar" e não pegar "depois do ponto"
	5	+	# - emitir warning falando que todos numeros parecem ser inteiros, então last-two não pegou decimal
	6	+	# - tem que ter uma opção para definir quantos decimais existem no número (inteiro = zero, dinheiro = 2)
	7	+	# - argumento "round", "digits".
	8	+
	9	+
	10	+
	11	+
	12	+
	13	+	# Tests -------------------------------------------------------------------
	14	+
	15	+
2	16
3	17		DF <- function(data){
4	18		data <- data[data >= 10]

@@ -109,6 +123,15 @@

  return(out)
}




# Extraction functions ----------------------------------------------------





#' @title Extracts the leading digits from the data
#' @description It extracts the leading digits from the data.
#' 

@@ -168,21 +191,47 @@

  return(results)
}

#' @title Trunc decimal values.
#' @description It trunc decimal values from the data.
#' 
#'This function is used by the main function of the package \code{\link{benford}}
#' to trunc the values in its ndec argument to the specified number of decimal places. 
#'
#' @param x a numeric vector. 
#' @param n.dec integer indicating the number of decimal places (trunc) to be used.
#' @return 
#' @export

truncDec <- function(x, n.dec = 2){
  int <- floor(x)
  isDec <- grepl("\\.", as.character(x))
  dec <- sub("^[0-9]*\\.", "", as.character(x))
  truncateDec <- substr(dec, 1, n.dec)
  truncatedNumber <- vector("character", length = length(dec))
  truncatedNumber[isDec] <- paste0(int[isDec], ".", dec[isDec])
  truncatedNumber[!isDec] <- as.character(int[!isDec])
  truncatedNumber <- as.numeric(truncatedNumber)
  return(truncatedNumber)
} 


#' @title Extracts the last two digits from the data
#' @description It extracts the last two digits from the data.
#' 
#'This function is used by the main function of the package \code{\link{benford}} to extract the 
#'ast two digits of the data.
#'
#' @param data a numeric vector. 
#' @param sign  The default value for sign is "positive" and it analyzes only data greater than zero. 
#' @param ndec it specifies the number of decimals to be used (default 2).
#' @param sign The default value for sign is "positive" and it analyzes only data greater than zero. 
#' There are also the options "negative" and "both" that will analyze only negative values or both positive and negative values of the data,
#' respectively. For large datasets with both positive and negative numbers, 
#' it is usually recommended to perform a separate analysis for each group,
#' for the incentives to manipulate the numbers are usually different.
#' @return A data.frame with the data and the last digits.
#' @export
last.two.digits <- function(data, sign="positive") {

last.two.digits <- function(data, sign="positive", ndec = 2) {
  
  if (!is.numeric(data)) stop("Data must be a numeric vector")
  

@@ -191,23 +240,49 @@

  if (sign == "negative")  positives <- data[data < 0 & !is.na(data)]*(-1)
  if (sign == "both")      positives <- abs(data[data != 0 & !is.na(data)]) 
  
  digits.as.str <- as.character(positives)
  nozeros <- grepl("\\.", digits.as.str)
  digits.as.str.nz <- digits.as.str[nozeros]
  dgts.after.dot <- sub("^[0-9]*\\.", "", digits.as.str.nz)
  ltd.dgts.after.dot <- substr(dgts.after.dot, nchar(dgts.after.dot)-1, nchar(dgts.after.dot))
  which.dgts.mult.10 <- grepl("^0", ltd.dgts.after.dot)
  dgts.mult.10 <- as.character(as.numeric(ltd.dgts.after.dot[which.dgts.mult.10])*10)
  ltd.dgts.after.dot[which.dgts.mult.10] <- dgts.mult.10
  digits.as.str[!nozeros] <- 0
  digits.as.str[nozeros] <- ltd.dgts.after.dot
  ltd <- as.numeric(digits.as.str)
  remainder <- positives %% 1
  if (all(remainder == 0)){
    warning("Data appears to be integers, so the argument 'ndec' is set to zero.")
    ndec <- 0
  } 
  
  results <- data.frame(data = positives,
  truncated.values <- truncDec(positives, ndec)
  values.as.str <- as.character(truncated.values)
  if (ndec == 0){
    nchar.values <- nchar(truncated.values)
    ltd <- substr(truncated.values, nchar.values - 1, nchar.values)
    ltd <- as.numeric(ltd)
  }else{
    nozeros <- grepl("\\.", values.as.str)
    values.as.str.nz <- values.as.str[nozeros]
    dgts.after.dot <- sub("^[0-9]*\\.", "", values.as.str.nz)
    ltd.dgts.after.dot <- substr(dgts.after.dot, nchar(dgts.after.dot) - 1, nchar(dgts.after.dot))
    which.dgts.mult.10 <- nchar(ltd.dgts.after.dot) == 1
    dgts.mult.10 <- as.character(as.numeric(ltd.dgts.after.dot[which.dgts.mult.10])*10)
    ltd.dgts.after.dot[which.dgts.mult.10] <- dgts.mult.10
    values.as.str[!nozeros] <- 0
    values.as.str[nozeros] <- ltd.dgts.after.dot
    ltd <- as.numeric(values.as.str)
  }
  
  results <- data.frame(data = truncated.values,
                        data.digits = ltd)
  return(results)
}


extract.mantissa <- function(positives) {
  log <- log10(positives)
  log[log < 0] <- log[log < 0] + as.integer(log[log < 0])*(-1) + 1
  mantissa <- log - trunc(log)
  return(mantissa)
}


# Digits probability ------------------------------------------------------



#' @title Probability of a digit sequence
#' @description It calculates the probability of a digit sequence "d".
#' @usage

@@ -229,6 +304,11 @@

}







#' @title Probability of a digit at the nth position
#' @description It calculates the probability of digit "d" at the "n"th position.
#' @usage

@@ -264,6 +344,12 @@

  return(sum)
}



# Generating functions ----------------------------------------------------



generate.benford.digits <- function(number.of.digits) {
  number.of.digits <- as.integer(number.of.digits)
  begin <- 10^(number.of.digits - 1)

@@ -300,12 +386,7 @@

  return(results)
}

extract.mantissa <- function(positives) {
  log <- log10(positives)
  log[log < 0] <- log[log < 0] + as.integer(log[log < 0])*(-1) + 1
  mantissa <- log - trunc(log)
  return(mantissa)
}


generate.summation <- function(benford.digits, data, data.digits) {
  x <- NULL

@@ -328,9 +409,12 @@


#### Basic Calculations ####

excess.kurtosis <- function(x) 
excess.kurtosis <- function(x){ 
  (mean((x - mean(x))^4)/(mean((x - mean(x))^2)^2)) - 3
}


skewness <- function(x) (mean((x - mean(x))^3)/(mean((x - mean(x))^2)^(3/2)))
skewness <- function(x) {
  (mean((x - mean(x))^3)/(mean((x - mean(x))^2)^(3/2)))
}


@@ -33,7 +33,7 @@

                         select = c("digits", "second order", "summation", "chi squared", "ex summation"), 
                         except = NULL, 
                         multiple = TRUE,  
                         col.bar = "lightblue", 
                         col.bar = "turquoise3", 
                         err.bounds = FALSE, 
                         alpha = 0.05, 
                         grid = TRUE,

@@ -115,7 +115,7 @@

    #par(mfrow = c(rows, cols))
    nslots <- rows*cols
    plot_this <- plots
    lg_size <- ifelse(rows > 1, 1, ifelse(err.bounds, 0.4, 0.7))/rows
    lg_size <- ifelse(rows > 1, 1, 0.7)/rows
    
    for (i in 1:length(plot_this)) {
      plot.switch(plot_this[i], x, col.bar, grid, err.bounds, alpha, exp.benford, freq)

@@ -128,7 +128,7 @@

    old.par <- par(no.readonly = TRUE)
    #on.exit(par(old.par))
    plot_this <- plots
    lg_size <- ifelse(err.bounds, 0.4, 0.7)
    lg_size <- 0.7
    
    for (i in 1:length(plot_this)) {
      plot.switch(plot_this[i], x, col.bar, grid, err.bounds, alpha, exp.benford, freq)

@@ -142,16 +142,16 @@

# Separate plots --------------------------------------------------------------------------------------

histogram.Benford <- function(x,
                                  obs.freq = "digits",
                                  main = NULL,
                                  xlab = NULL,
                                  ylab = NULL,
                                  grid = TRUE,
                                  col.bar = "lightblue",
                                  err.bounds = FALSE,
                                  alpha = 0.05,
                                  exp.benford = TRUE,
                                  freq = TRUE, ...){
                              obs.freq = "digits",
                              main = NULL,
                              xlab = NULL,
                              ylab = NULL,
                              grid = TRUE,
                              col.bar = "lightblue",
                              err.bounds = FALSE,
                              alpha = 0.05,
                              exp.benford = TRUE,
                              freq = TRUE, ...){
  
  digits <- x[["bfd"]]$digits
  obs.freq <- tolower(obs.freq)

@@ -255,16 +255,16 @@



rootogram.Benford <- function(x,
                                  obs.freq = "digits",
                                  main = NULL,
                                  xlab = NULL,
                                  ylab = NULL,
                                  grid = TRUE,
                                  col.bar = "lightblue",
                                  err.bounds = FALSE,
                                  alpha = 0.05,
                                  exp.benford = TRUE,
                                  freq = TRUE, ...){
                              obs.freq = "digits",
                              main = NULL,
                              xlab = NULL,
                              ylab = NULL,
                              grid = TRUE,
                              col.bar = "lightblue",
                              err.bounds = FALSE,
                              alpha = 0.05,
                              exp.benford = TRUE,
                              freq = TRUE, ...){
  digits <- x[["bfd"]]$digits
  obs.freq <- tolower(obs.freq)
  

@@ -301,11 +301,13 @@

    ylim <- c(min(exp_freq - obs_freq)*1.1, max(abs(exp_freq - obs_freq)*0.5, exp_freq)*1.1)
  }
  
  if(is.null(xlab)){
    xlab <- c("First Digit", "First-Two Digits", "First-Three Digits", "First-Order Digits")[ifelse(x$info$number.of.digits <= 3, x$info$number.of.digits, 4)]
  if (is.null(xlab)) {
    xlab.options <- c("First Digit", "First-Two Digits", "First-Three Digits", "First-Order Digits")
    lab.picker <- ifelse(x$info$number.of.digits <= 3, x$info$number.of.digits, 4)
    xlab <- xlab.options[lab.picker]
  }
  
  if(is.null(ylab)){
  if (is.null(ylab)) {
    ylab <- "Frequency"
  }
  

@@ -317,7 +319,7 @@

       ylim = ylim,
       yaxs = 'i', xaxs = 'i', xaxt = "n", type = 'n',
       panel.first = {
         if(grid){
         if (grid) {
           grid(nx = NA, ny = NULL, lty = 1, col = "gray90")
           axis(1, at = xmarks[seq(1, length(xmarks), ifelse(length(digits) <= 90, 1, 10))], tck = 1, col.ticks = "gray90", labels = F)
         }

@@ -488,8 +490,7 @@

           col = plot_colors, 
           cex = size,
           lwd = c(rep(2, 2), 2),
           lty = c(rep(1, 2), 2),
           horiz = TRUE)
           lty = c(rep(1, 2), 2))
  }else{
    plot_colors <- c("lightblue","red")
    legend(x = "topright",

@@ -499,8 +500,7 @@

           col = plot_colors, 
           cex = size,
           lwd = 2,
           lty = rep(1, 2),
           horiz = TRUE)
           lty = rep(1, 2))
  }
}


Everything is accounted for!

No changes detected that need to be reviewed.

What changes does Codecov check for?

Lines, not adjusted in diff, that have changed coverage data.

Files that introduced coverage data that had none before.

Files that have missing coverage data that once were tracked.

99.51% 100.00% +0.01%

adjusting last.two.digits function

Unknown

#38 1a375bf

CI Passed

Hiding 3 contexual commits

+17

99.49% 91.67% -0.51%

testing plot placement

rafaelslins

#38 357f30c

CI Passed

Files		•	•	•	Coverage
R	+17	+17	ø	ø	^0.01% 99.51%
Project Totals (4 files)	610	607	0	3	99.51%

109	123		return(out)
110	124		}
111	125
	126	+
	127	+
	128	+
	129	+	# Extraction functions ----------------------------------------------------
	130	+
	131	+
	132	+
	133	+
	134	+
112	135		#' @title Extracts the leading digits from the data
113	136		#' @description It extracts the leading digits from the data.
114	137		#'

168	191		return(results)
169	192		}
170	193
	194	+	#' @title Trunc decimal values.
	195	+	#' @description It trunc decimal values from the data.
	196	+	#'
	197	+	#'This function is used by the main function of the package \code{\link{benford}}
	198	+	#' to trunc the values in its ndec argument to the specified number of decimal places.
	199	+	#'
	200	+	#' @param x a numeric vector.
	201	+	#' @param n.dec integer indicating the number of decimal places (trunc) to be used.
	202	+	#' @return
	203	+	#' @export
	204	+
	205	+	truncDec <- function(x, n.dec = 2){
	206	+	int <- floor(x)
	207	+	isDec <- grepl("\\.", as.character(x))
	208	+	dec <- sub("^[0-9]*\\.", "", as.character(x))
	209	+	truncateDec <- substr(dec, 1, n.dec)
	210	+	truncatedNumber <- vector("character", length = length(dec))
	211	+	truncatedNumber[isDec] <- paste0(int[isDec], ".", dec[isDec])
	212	+	truncatedNumber[!isDec] <- as.character(int[!isDec])
	213	+	truncatedNumber <- as.numeric(truncatedNumber)
	214	+	return(truncatedNumber)
	215	+	}
	216	+
	217	+
171	218		#' @title Extracts the last two digits from the data
172	219		#' @description It extracts the last two digits from the data.
173	220		#'
174	221		#'This function is used by the main function of the package \code{\link{benford}} to extract the
175	222		#'ast two digits of the data.
176	223		#'
177	224		#' @param data a numeric vector.
178		-	#' @param sign The default value for sign is "positive" and it analyzes only data greater than zero.
	225	+	#' @param ndec it specifies the number of decimals to be used (default 2).
	226	+	#' @param sign The default value for sign is "positive" and it analyzes only data greater than zero.
179	227		#' There are also the options "negative" and "both" that will analyze only negative values or both positive and negative values of the data,
180	228		#' respectively. For large datasets with both positive and negative numbers,
181	229		#' it is usually recommended to perform a separate analysis for each group,
182	230		#' for the incentives to manipulate the numbers are usually different.
183	231		#' @return A data.frame with the data and the last digits.
184	232		#' @export
185		-	last.two.digits <- function(data, sign="positive") {
	233	+
	234	+	last.two.digits <- function(data, sign="positive", ndec = 2) {
186	235
187	236		if (!is.numeric(data)) stop("Data must be a numeric vector")
188	237

191	240		if (sign == "negative") positives <- data[data < 0 & !is.na(data)]*(-1)
192	241		if (sign == "both") positives <- abs(data[data != 0 & !is.na(data)])
193	242
194		-	digits.as.str <- as.character(positives)
195		-	nozeros <- grepl("\\.", digits.as.str)
196		-	digits.as.str.nz <- digits.as.str[nozeros]
197		-	dgts.after.dot <- sub("^[0-9]*\\.", "", digits.as.str.nz)
198		-	ltd.dgts.after.dot <- substr(dgts.after.dot, nchar(dgts.after.dot)-1, nchar(dgts.after.dot))
199		-	which.dgts.mult.10 <- grepl("^0", ltd.dgts.after.dot)
200		-	dgts.mult.10 <- as.character(as.numeric(ltd.dgts.after.dot[which.dgts.mult.10])*10)
201		-	ltd.dgts.after.dot[which.dgts.mult.10] <- dgts.mult.10
202		-	digits.as.str[!nozeros] <- 0
203		-	digits.as.str[nozeros] <- ltd.dgts.after.dot
204		-	ltd <- as.numeric(digits.as.str)
	243	+	remainder <- positives %% 1
	244	+	if (all(remainder == 0)){
	245	+	warning("Data appears to be integers, so the argument 'ndec' is set to zero.")
	246	+	ndec <- 0
	247	+	}
205	248
206		-	results <- data.frame(data = positives,
	249	+	truncated.values <- truncDec(positives, ndec)
	250	+	values.as.str <- as.character(truncated.values)
	251	+	if (ndec == 0){
	252	+	nchar.values <- nchar(truncated.values)
	253	+	ltd <- substr(truncated.values, nchar.values - 1, nchar.values)
	254	+	ltd <- as.numeric(ltd)
	255	+	}else{
	256	+	nozeros <- grepl("\\.", values.as.str)
	257	+	values.as.str.nz <- values.as.str[nozeros]
	258	+	dgts.after.dot <- sub("^[0-9]*\\.", "", values.as.str.nz)
	259	+	ltd.dgts.after.dot <- substr(dgts.after.dot, nchar(dgts.after.dot) - 1, nchar(dgts.after.dot))
	260	+	which.dgts.mult.10 <- nchar(ltd.dgts.after.dot) == 1
	261	+	dgts.mult.10 <- as.character(as.numeric(ltd.dgts.after.dot[which.dgts.mult.10])*10)
	262	+	ltd.dgts.after.dot[which.dgts.mult.10] <- dgts.mult.10
	263	+	values.as.str[!nozeros] <- 0
	264	+	values.as.str[nozeros] <- ltd.dgts.after.dot
	265	+	ltd <- as.numeric(values.as.str)
	266	+	}
	267	+
	268	+	results <- data.frame(data = truncated.values,
207	269		data.digits = ltd)
208	270		return(results)
209	271		}
210	272
	273	+
	274	+	extract.mantissa <- function(positives) {
	275	+	log <- log10(positives)
	276	+	log[log < 0] <- log[log < 0] + as.integer(log[log < 0])*(-1) + 1
	277	+	mantissa <- log - trunc(log)
	278	+	return(mantissa)
	279	+	}
	280	+
	281	+
	282	+	# Digits probability ------------------------------------------------------
	283	+
	284	+
	285	+
211	286		#' @title Probability of a digit sequence
212	287		#' @description It calculates the probability of a digit sequence "d".
213	288		#' @usage

229	304		}
230	305
231	306
	307	+
	308	+
	309	+
	310	+
	311	+
232	312		#' @title Probability of a digit at the nth position
233	313		#' @description It calculates the probability of digit "d" at the "n"th position.
234	314		#' @usage

264	344		return(sum)
265	345		}
266	346
	347	+
	348	+
	349	+	# Generating functions ----------------------------------------------------
	350	+
	351	+
	352	+
267	353		generate.benford.digits <- function(number.of.digits) {
268	354		number.of.digits <- as.integer(number.of.digits)
269	355		begin <- 10^(number.of.digits - 1)

328	409
329	410		#### Basic Calculations ####
330	411
331		-	excess.kurtosis <- function(x)
	412	+	excess.kurtosis <- function(x){
332	413		(mean((x - mean(x))^4)/(mean((x - mean(x))^2)^2)) - 3
	414	+	}
333	415
334	416
335		-	skewness <- function(x) (mean((x - mean(x))^3)/(mean((x - mean(x))^2)^(3/2)))
	417	+	skewness <- function(x) {
	418	+	(mean((x - mean(x))^3)/(mean((x - mean(x))^2)^(3/2)))
	419	+	}
336	420

33	33		select = c("digits", "second order", "summation", "chi squared", "ex summation"),
34	34		except = NULL,
35	35		multiple = TRUE,
36		-	col.bar = "lightblue",
	36	+	col.bar = "turquoise3",
37	37		err.bounds = FALSE,
38	38		alpha = 0.05,
39	39		grid = TRUE,

115	115		#par(mfrow = c(rows, cols))
116	116		nslots <- rows*cols
117	117		plot_this <- plots
118		-	lg_size <- ifelse(rows > 1, 1, ifelse(err.bounds, 0.4, 0.7))/rows
	118	+	lg_size <- ifelse(rows > 1, 1, 0.7)/rows
119	119
120	120		for (i in 1:length(plot_this)) {
121	121		plot.switch(plot_this[i], x, col.bar, grid, err.bounds, alpha, exp.benford, freq)

128	128		old.par <- par(no.readonly = TRUE)
129	129		#on.exit(par(old.par))
130	130		plot_this <- plots
131		-	lg_size <- ifelse(err.bounds, 0.4, 0.7)
	131	+	lg_size <- 0.7
132	132
133	133		for (i in 1:length(plot_this)) {
134	134		plot.switch(plot_this[i], x, col.bar, grid, err.bounds, alpha, exp.benford, freq)

142	142		# Separate plots --------------------------------------------------------------------------------------
143	143
144	144		histogram.Benford <- function(x,
145		-	obs.freq = "digits",
146		-	main = NULL,
147		-	xlab = NULL,
148		-	ylab = NULL,
149		-	grid = TRUE,
150		-	col.bar = "lightblue",
151		-	err.bounds = FALSE,
152		-	alpha = 0.05,
153		-	exp.benford = TRUE,
154		-	freq = TRUE, ...){
	145	+	obs.freq = "digits",
	146	+	main = NULL,
	147	+	xlab = NULL,
	148	+	ylab = NULL,
	149	+	grid = TRUE,
	150	+	col.bar = "lightblue",
	151	+	err.bounds = FALSE,
	152	+	alpha = 0.05,
	153	+	exp.benford = TRUE,
	154	+	freq = TRUE, ...){
155	155
156	156		digits <- x[["bfd"]]$digits
157	157		obs.freq <- tolower(obs.freq)

255	255
256	256
257	257		rootogram.Benford <- function(x,
258		-	obs.freq = "digits",
259		-	main = NULL,
260		-	xlab = NULL,
261		-	ylab = NULL,
262		-	grid = TRUE,
263		-	col.bar = "lightblue",
264		-	err.bounds = FALSE,
265		-	alpha = 0.05,
266		-	exp.benford = TRUE,
267		-	freq = TRUE, ...){
	258	+	obs.freq = "digits",
	259	+	main = NULL,
	260	+	xlab = NULL,
	261	+	ylab = NULL,
	262	+	grid = TRUE,
	263	+	col.bar = "lightblue",
	264	+	err.bounds = FALSE,
	265	+	alpha = 0.05,
	266	+	exp.benford = TRUE,
	267	+	freq = TRUE, ...){
268	268		digits <- x[["bfd"]]$digits
269	269		obs.freq <- tolower(obs.freq)
270	270

301	301		ylim <- c(min(exp_freq - obs_freq)1.1, max(abs(exp_freq - obs_freq)0.5, exp_freq)*1.1)
302	302		}
303	303
304		-	if(is.null(xlab)){
305		-	xlab <- c("First Digit", "First-Two Digits", "First-Three Digits", "First-Order Digits")[ifelse(x$info$number.of.digits <= 3, x$info$number.of.digits, 4)]
	304	+	if (is.null(xlab)) {
	305	+	xlab.options <- c("First Digit", "First-Two Digits", "First-Three Digits", "First-Order Digits")
	306	+	lab.picker <- ifelse(x$info$number.of.digits <= 3, x$info$number.of.digits, 4)
	307	+	xlab <- xlab.options[lab.picker]
306	308		}
307	309
308		-	if(is.null(ylab)){
	310	+	if (is.null(ylab)) {
309	311		ylab <- "Frequency"
310	312		}
311	313

317	319		ylim = ylim,
318	320		yaxs = 'i', xaxs = 'i', xaxt = "n", type = 'n',
319	321		panel.first = {
320		-	if(grid){
	322	+	if (grid) {
321	323		grid(nx = NA, ny = NULL, lty = 1, col = "gray90")
322	324		axis(1, at = xmarks[seq(1, length(xmarks), ifelse(length(digits) <= 90, 1, 10))], tck = 1, col.ticks = "gray90", labels = F)
323	325		}

488	490		col = plot_colors,
489	491		cex = size,
490	492		lwd = c(rep(2, 2), 2),
491		-	lty = c(rep(1, 2), 2),
492		-	horiz = TRUE)
	493	+	lty = c(rep(1, 2), 2))
493	494		}else{
494	495		plot_colors <- c("lightblue","red")
495	496		legend(x = "topright",

499	500		col = plot_colors,
500	501		cex = size,
501	502		lwd = 2,
502		-	lty = rep(1, 2),
503		-	horiz = TRUE)
	503	+	lty = rep(1, 2))
504	504		}
505	505		}
506	506

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 357f30c ... +3 ... 1a375bf

No flags found

Everything is accounted for!

What changes does Codecov check for?

Show failed CI and contexual commits c 5 Commits

Compare `357f30c ... +3 ... 1a375bf`

Show failed CI and contexual commits `c`

5 Commits