Skip to content

Commit 68f8c50

Browse files
committed
formatting
1 parent 91bbde3 commit 68f8c50

File tree

1 file changed

+6
-6
lines changed

1 file changed

+6
-6
lines changed

R/revision_analysis.R

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -75,10 +75,10 @@
7575
#' Using a `time_type` of `"integer"` with week numbers like 202501 will
7676
#' produce incorrect results for some calculations, since week numbering
7777
#' contains jumps at year boundaries.
78-
#'
78+
#'
7979
#' @return An S3 object with class `revision_behavior`. This function is typically
8080
#' called for the purposes of inspecting the printed output. The
81-
#' results of the computations are available in
81+
#' results of the computations are available in
8282
#' `revision_analysis(...)$revision_behavior`. If you only want to access
8383
#' the internal computations, use `return_only_tibble = TRUE`.
8484
#'
@@ -205,7 +205,7 @@ revision_analysis <- function(epi_arch,
205205
if (!return_only_tibble) {
206206
revision_behavior <- structure(list(
207207
revision_behavior = revision_behavior,
208-
range_time_values = range(epi_arch$DT$time_value),
208+
range_time_values = range(epi_arch$DT$time_value),
209209
signal_variable = arg,
210210
drop_nas = drop_nas,
211211
time_type = time_type,
@@ -248,9 +248,9 @@ print.revision_behavior <- function(x, ...) {
248248
)
249249
cli_inform("Few revisions (At most {x$few_revisions} revisions for that `time_value`):")
250250
cli_li(num_percent(total_barely_revised, total_num, ""))
251-
251+
252252
cli::cli_h3("Fraction of revised epi_key + time_values which have:")
253-
253+
254254
real_revisions <- x$revision_behavior %>% filter(n_revisions > 0) # nolint: object_usage_linter
255255
n_real_revised <- nrow(real_revisions) # nolint: object_usage_linter
256256
rel_spread <- sum( # nolint: object_usage_linter
@@ -266,7 +266,7 @@ print.revision_behavior <- function(x, ...) {
266266
) # nolint: object_usage_linter
267267
cli_inform("Spread of more than {x$abs_spread_threshold} in actual value (when revised):")
268268
cli_li(num_percent(abs_spread, n_real_revised, ""))
269-
269+
270270
# time_type_unit_pluralizer[[time_type]] is a format string controlled by us
271271
# and/or downstream devs, so we can paste it onto our format string safely:
272272
units_plural <- pluralize(paste0("{qty(2)}", time_type_unit_pluralizer[[x$time_type]])) # nolint: object_usage_linter

0 commit comments

Comments
 (0)