Lint Quarto docs (#88)

* Bump R pre-commit to 0.4.3

* Lint all Quarto docs

.lintr

@@ -1,5 +1,6 @@
 linters: linters_with_defaults(
     object_name_linter = NULL,
-    object_usage_linter = NULL
+    object_usage_linter = NULL,
+    object_length_linter = NULL
   )
 encoding: "UTF-8"

.pre-commit-config.yaml

@@ -2,7 +2,7 @@
 # R specific hooks: https://github.com/lorenzwalthert/precommit
 repos:
   - repo: https://github.com/lorenzwalthert/precommit
-    rev: v0.4.2
+    rev: v0.4.3
     hooks:
       - id: style-files
         args: [--style_pkg=styler, --style_fun=tidyverse_style]

reports/performance/_model.qmd

@@ -1101,8 +1101,8 @@ ggplot(training_data_monthly, aes(x = date, y = variance_ratio)) +
 
 ```{r _model_overall_variance_chart}
 ggplot(
-  training_data_monthly_long %>% filter(Metric %in%
-    c("variance_sale", "variance_fmv")),
+  training_data_monthly_long %>%
+    filter(Metric %in% c("variance_sale", "variance_fmv")),
   aes(x = date, y = Value, color = Metric)
 ) +
   geom_line() +

reports/performance/_outcomes.qmd

@@ -371,9 +371,9 @@ stats_median_yoy_delta %>%
   ) %>%
   kable(
     "html",
-    escape = F, col.names = rep("", 7), align = c("l", rep("c", 6))
+    escape = FALSE, col.names = rep("", 7), align = c("l", rep("c", 6))
   ) %>%
-  kable_styling(full_width = F) %>%
+  kable_styling(full_width = FALSE) %>%
   add_header_above(c(
     "Township" = 1,
     "Ratio" = 1,

reports/performance/_outliers.qmd

@@ -63,7 +63,11 @@ training_data %>%
   group_by(meta_year, outlier_reasons_to_graph) %>%
   summarise(n = n()) %>%
   rename(Year = meta_year) %>%
-  pivot_wider(id_cols = Year, names_from = outlier_reasons_to_graph, values_from = n) %>%
+  pivot_wider(
+    id_cols = Year,
+    names_from = outlier_reasons_to_graph,
+    values_from = n
+  ) %>%
   kable() %>%
   kable_styling("striped")
 
@@ -72,7 +76,11 @@ training_data %>%
   group_by(meta_year, outlier_reasons_to_graph) %>%
   summarise(n = n(), .groups = "drop") %>%
   rename(Year = meta_year) %>%
-  pivot_wider(id_cols = Year, names_from = outlier_reasons_to_graph, values_from = n) %>%
+  pivot_wider(
+    id_cols = Year,
+    names_from = outlier_reasons_to_graph,
+    values_from = n
+  ) %>%
   kable() %>%
   kable_styling("striped")
 ```