hugomflavio
Showing 1 of 1 files from the diff.
@@ -192,10 +192,16 @@
Loading
| 192 | 192 | ||
| 193 | 193 | # Check that all the overridden tags are part of the study |
|
| 194 | 194 | if (!is.null(dp) && !is.null(override)) { |
|
| 195 | - | ||
| 196 | - | lowest_signals <- sapply(dp$bio$Signal, lowestSignal) |
|
| 197 | - | if (any(link <- is.na(match(override, lowest_signals)))) |
|
| 198 | - | stopAndReport("Some tags listed in 'override' (", paste0(override[link], collapse = ", "), ") are not listed in the biometrics data.") |
|
| 195 | + | if (is.numeric(override)) { |
|
| 196 | + | lowest_signals <- sapply(dp$bio$Signal, lowestSignal) |
|
| 197 | + | if (any(link <- is.na(match(override, dp$bio$Signal)))) { |
|
| 198 | + | stopAndReport("Some tags listed in 'override' (", paste0(override[link], collapse = ", "), ") are not listed in the biometrics data.") |
|
| 199 | + | } |
|
| 200 | + | } else { |
|
| 201 | + | if (any(link <- is.na(match(override, dp$bio$Transmitter)))) { |
|
| 202 | + | stopAndReport("Some tags listed in 'override' (", paste0(override[link], collapse = ", "), ") are not listed in the biometrics data.") |
|
| 203 | + | } |
|
| 204 | + | } |
|
| 199 | 205 | } |
|
| 200 | 206 | ||
| 201 | 207 | # NON-explore checks |
| Files | Coverage |
|---|---|
| R | 93.29% |
| Project Totals (15 files) | 93.29% |
1570671283
1570671283
1580608460
1580608460
Sunburst
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.
Icicle
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.
