diff --git a/.lintr b/.lintr index ef6caf3..86aa062 100644 --- a/.lintr +++ b/.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" diff --git a/.pre-commit-config.yaml b/.pre-commit-config.yaml index 8bbd70f..4ee9bb3 100644 --- a/.pre-commit-config.yaml +++ b/.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] diff --git a/reports/performance/_model.qmd b/reports/performance/_model.qmd index 81e86f5..c12ebd0 100644 --- a/reports/performance/_model.qmd +++ b/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() + diff --git a/reports/performance/_outcomes.qmd b/reports/performance/_outcomes.qmd index 493a665..5755eff 100644 --- a/reports/performance/_outcomes.qmd +++ b/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, diff --git a/reports/performance/_outliers.qmd b/reports/performance/_outliers.qmd index 8dd652f..998399f 100644 --- a/reports/performance/_outliers.qmd +++ b/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") ```