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