Other files ignored by Codecov
tests/testit/test-other.R
has changed.
67 | 67 | ro <- RequireOptions() |
|
68 | 68 | roNames <- names(newOpts) |
|
69 | 69 | names(roNames) <- roNames |
|
70 | - | nonStandardOpt <- !unlist(lapply(roNames, function(optNam) identical(ro[[optNam]], newOpts[[optNam]]))) |
|
70 | + | nonStandardOpt <- !unlist(lapply(roNames, function(optNam) identical(ro[[optNam]], opts[[optNam]]))) |
|
71 | 71 | if (any(nonStandardOpt)) { |
|
72 | 72 | rp <- readLines(".Rprofile") |
|
73 | 73 | lineWithPrevious <- grepl("### Previous", rp) |
77 | 77 | pre <- seq(lineWithPrevious) |
|
78 | 78 | nameNonStandards <- names(nonStandardOpt)[nonStandardOpt] |
|
79 | 79 | optsToAdd <- unlist(lapply(nameNonStandards, function(nns) { |
|
80 | - | paste0("### Previous option: ", nns, " = ", newOpts[[nns]]) |
|
80 | + | paste0("### Previous option: ", nns, " = ", opts[[nns]]) |
|
81 | 81 | })) |
|
82 | 82 | newOptsToAdd <- unlist(lapply(nameNonStandards, function(nns) { |
|
83 | 83 | paste0("options('", nns, "' = '", newOpts[[nns]], "')") |
Files | Coverage |
---|---|
R | 0.22% |
Project Totals (11 files) | 0.22% |