R/finbif_occurrence.R
changed.
Other files ignored by Codecov
tests/testthat/test-finbif_occurrence.R
has changed.
93 | 93 | ||
94 | 94 | filter <- c(taxa, filter) |
|
95 | 95 | ||
96 | + | ||
97 | + | if (!is.finite(n) || is.factor(n) || n < 0) { |
|
98 | + | ||
99 | + | n <- finbif_records( |
|
100 | + | filter, select, order_by, aggregate, sample, |
|
101 | + | n = getOption("finbif_max_page_size"), page, count_only, quiet, |
|
102 | + | cache, dwc, df = TRUE, seed |
|
103 | + | ) |
|
104 | + | ||
105 | + | n <- attr(n, "nrec_avl") |
|
106 | + | ||
107 | + | n <- pmax(n, getOption("finbif_max_page_size")) |
|
108 | + | ||
109 | + | } |
|
110 | + | ||
96 | 111 | records <- finbif_records( |
|
97 | 112 | filter, select, order_by, aggregate, sample, n, page, count_only, quiet, |
|
98 | 113 | cache, dwc, df = TRUE, seed |
Files | Coverage |
---|---|
R | 100.00% |
Project Totals (19 files) | 100.00% |