lint: adjust indentation, nolint objects only in cli interpolation

Author: brookslogan

R/revision_analysis.R

@@ -243,7 +243,7 @@ revision_summary <- function(epi_arch,
 
     # time_type_unit_pluralizer[[time_type]] is a format string controlled by us
     # and/or downstream devs, so we can paste it onto our format string safely:
-    units_plural <- pluralize(paste0("{qty(2)}", time_type_unit_pluralizer[[time_type]]))
+    units_plural <- pluralize(paste0("{qty(2)}", time_type_unit_pluralizer[[time_type]])) # nolint: object_usage_linter
     cli_inform("{toTitleCase(units_plural)} until within {within_latest*100}% of the latest value:")
     time_delta_summary(revision_behavior[["lag_near_latest"]], time_type) %>% print()
   }

R/time-utils.R

@@ -271,7 +271,7 @@ time_type_unit_pluralizer <- c(
 #'
 #' @keywords internal
 format_time_delta <- function(x, time_type) {
-  n_steps <- time_delta_to_n_steps(x, time_type)
+  n_steps <- time_delta_to_n_steps(x, time_type) # nolint: object_usage_linter
   # time_type_unit_pluralizer[[time_type]] is a format string controlled by us
   # and/or downstream devs, so we can paste it onto our format string safely:
   pluralize(paste0("{n_steps} ", time_type_unit_pluralizer[[time_type]]))

tests/testthat/test-time-utils.R

@@ -241,10 +241,12 @@ test_that("difftime_approx_ceiling_time_delta works as expected", {
   ) %>%
     mutate(across(expected_wrapped_friendly_result, purrr::list_flatten)) %>%
     rowwise() %>%
-    mutate(wrapped_friendly_result = as.difftime(x_amount, units = x_units) %>%
-      difftime_approx_ceiling_time_delta(time_type) %>%
-      time_delta_standardize(time_type, format = "friendly") %>%
-      list()) %>%
+    mutate(
+      wrapped_friendly_result = as.difftime(x_amount, units = x_units) %>%
+        difftime_approx_ceiling_time_delta(time_type) %>%
+        time_delta_standardize(time_type, format = "friendly") %>%
+        list()
+    ) %>%
     ungroup()
 
   expect_equal(