tidyverts / tsibble

Compare dc58440 ... +4 ... 460a2af

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 1 of 11 files from the diff.

@@ -164,11 +164,13 @@
Loading
164 164
    } else if (is_false(.full)) {
165 165
      sum_data <- summarise(keyed_tbl,
166 166
        !!idx_chr := list2(!!idx_chr := seq_generator(!!idx, int)))
167 -
    } else if (.full == expr("start()")) {
167 +
    } else if (call_name(.full) == "start") {
168 +
      abort_if_args_present(.full)
168 169
      start <- min(keyed_tbl[[idx_chr]])
169 170
      sum_data <- summarise(keyed_tbl,
170 171
        !!idx_chr := list2(!!idx_chr := seq_generator(c(start, max(!!idx)), int)))
171 -
    } else if (.full == expr("end()")) {
172 +
    } else if (call_name(.full) == "end") {
173 +
      abort_if_args_present(.full)
172 174
      end <- max(keyed_tbl[[idx_chr]])
173 175
      sum_data <- summarise(keyed_tbl,
174 176
        !!idx_chr := list2(!!idx_chr := seq_generator(c(min(!!idx), end), int)))
@@ -279,12 +281,14 @@
Loading
279 281
      res <- summarise(grped_tbl,
280 282
        !!.name := (length(seq_generator(!!idx, int)) - length(!!idx)) > 0
281 283
      )
282 -
    } else if (.full == sym("start()")) {
284 +
    } else if (call_name(.full) == "start") {
285 +
      abort_if_args_present(.full)
283 286
      start <- min(.data[[idx_chr]])
284 287
      res <- summarise(grped_tbl,
285 288
        !!.name := (length(seq_generator(c(start, max(!!idx)), int)) - length(!!idx)) > 0
286 289
      )
287 -
    } else if (.full == sym("end()")) {
290 +
    } else if (call_name(.full) == "end") {
291 +
      abort_if_args_present(.full)
288 292
      end <- max(.data[[idx_chr]])
289 293
      res <- summarise(grped_tbl,
290 294
        !!.name := (length(seq_generator(c(min(!!idx), end), int)) - length(!!idx)) > 0
@@ -376,3 +380,9 @@
Loading
376 380
abort_invalid_full_arg <- function() {
377 381
  abort("`.full` only accepts `TRUE`, `FALSE`, `start()`, or `end()`.")
378 382
}
383 +
384 +
abort_if_args_present <- function(.full) {
385 +
  if (!has_length(call_args(.full), 0)) {
386 +
    abort("`.full` expects `start()`/`end()` with no arguments.")
387 +
  }
388 +
}

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.
Files Coverage
R -0.01% 87.84%
Project Totals (24 files) 87.84%
Loading