Commit ⋅ brodieG/diffobj

# flags is supposed to be character(1L) in form "XVF" or some such
#
# Returns the previous value of the variable, NA if it was not set
#
# Assumes `Sys.getenv('VAR')` always returns a length 1 character vector, even
# though strictly this is not documented (used to handle other case but this
# assumption simplifies testing now that we can't mock Sys.getenv anymore).

set_less_var <- function(flags) {
  LESS <- Sys.getenv("LESS", unset=NA) # NA return is NA_character_

@@ -81,8 +85,7 @@

Loading

      LESS.new <- sub(
        "\\s*\\K(-[[:alpha:]]+)\\b$", sprintf("\\1%s", flags), LESS, perl=TRUE
  ) } }
  if(!is.na(LESS.new)) Sys.setenv(LESS=LESS.new) else
    warning("Unable to set `LESS` system variable")
  if(!is.na(LESS.new)) Sys.setenv(LESS=LESS.new)
  LESS
}
reset_less_var <- function(LESS.old) {

Files		•	•	Coverage
R	3,562	3,546	16	99.55%
src	247	247	0	100.00%
Project Totals (28 files)	3,809	3,793	16	99.58%

View CI Build Download

No yaml found.

Create your codecov.yml to customize your Codecov experience

Read the docs

Interact now

The inner-most circle is the entire project, moving away from the center are folders then, finally, a single file. The size and color of each slice is representing the number of statements and the coverage, respectively.

SVG

The top section represents the entire project. Proceeding with folders and finally individual files. The size and color of each slice is representing the number of statements and the coverage, respectively.

SVG

Each block represents a single file in the project. The size and color of each block is represented by the number of statements and the coverage, respectively.

SVG

Learn more about the coverage sunburst graph

68	68		# flags is supposed to be character(1L) in form "XVF" or some such
69	69		#
70	70		# Returns the previous value of the variable, NA if it was not set
	71	+	#
	72	+	# Assumes `Sys.getenv('VAR')` always returns a length 1 character vector, even
	73	+	# though strictly this is not documented (used to handle other case but this
	74	+	# assumption simplifies testing now that we can't mock Sys.getenv anymore).
71	75
72	76		set_less_var <- function(flags) {
73	77		LESS <- Sys.getenv("LESS", unset=NA) # NA return is NA_character_

81	85		LESS.new <- sub(
82	86		"\\s*\\K(-[[:alpha:]]+)\\b$", sprintf("\\1%s", flags), LESS, perl=TRUE
83	87		) } }
84		-	if(!is.na(LESS.new)) Sys.setenv(LESS=LESS.new) else
85		-	warning("Unable to set `LESS` system variable")
	88	+	if(!is.na(LESS.new)) Sys.setenv(LESS=LESS.new)
86	89		LESS
87	90		}
88	91		reset_less_var <- function(LESS.old) {

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

Updating our web app

No yaml found.