lint for the lint god

R/class-forecast-quantile.R

@@ -41,7 +41,7 @@ as_forecast_quantile.default <- function(data,
 #' @rdname assert_forecast
 #' @keywords validate-forecast-object
 assert_forecast.forecast_quantile <- function(
-    forecast, forecast_type = NULL, verbose = TRUE, ...
+  forecast, forecast_type = NULL, verbose = TRUE, ...
 ) {
   forecast <- assert_forecast_generic(forecast, verbose)
   assert_forecast_type(forecast, actual = "quantile", desired = forecast_type)

R/get-coverage.R

@@ -155,9 +155,10 @@ plot_interval_coverage <- function(coverage,
       colour = "white",
       fill = "olivedrab3"
     ) +
-    geom_line(aes(y = interval_range),
-              colour = "grey",
-              linetype = "dashed"
+    geom_line(
+      aes(y = interval_range),
+      colour = "grey",
+      linetype = "dashed"
     ) +
     geom_line(aes(y = interval_coverage * 100)) +
     theme_scoringutils() +
@@ -218,9 +219,10 @@ plot_quantile_coverage <- function(coverage,
       colour = "white",
       fill = "olivedrab3"
     ) +
-    geom_line(aes(y = quantile_level),
-              colour = "grey",
-              linetype = "dashed"
+    geom_line(
+      aes(y = quantile_level),
+      colour = "grey",
+      linetype = "dashed"
     ) +
     geom_line(aes(y = quantile_coverage)) +
     theme_scoringutils() +

R/get-pit-generic.R

@@ -147,9 +147,10 @@ plot_pit <- function(pit,
         data = pit,
         aes(x = pit_value)
       ) +
-        geom_histogram(aes(y = after_stat(width * density)),
-                       breaks = plot_quantiles,
-                       colour = "grey"
+        geom_histogram(
+          aes(y = after_stat(width * density)),
+          breaks = plot_quantiles,
+          colour = "grey"
         ) +
         facet_wrap(formula)
     }
@@ -159,9 +160,10 @@ plot_pit <- function(pit,
       data = data.frame(x = pit, stringsAsFactors = TRUE),
       aes(x = x)
     ) +
-      geom_histogram(aes(y = after_stat(width * density)),
-                     breaks = plot_quantiles,
-                     colour = "grey"
+      geom_histogram(
+        aes(y = after_stat(width * density)),
+        breaks = plot_quantiles,
+        colour = "grey"
       )
   }
 
@@ -172,4 +174,3 @@ plot_pit <- function(pit,
 
   return(hist)
 }
-

R/pairwise-comparisons.R

@@ -667,11 +667,12 @@ plot_pairwise_comparisons <- function(comparison_result,
 
   get_fill_scale <- function(values, breaks, plot_scales) {
     values[is.na(values)] <- 1 # this would be either ratio = 1 or pval = 1
-    scale <- cut(values,
-                 breaks = breaks,
-                 include.lowest = TRUE,
-                 right = FALSE,
-                 labels = plot_scales
+    scale <- cut(
+      values,
+      breaks = breaks,
+      include.lowest = TRUE,
+      right = FALSE,
+      labels = plot_scales
     )
     return(as.numeric(as.character(scale)))
   }

R/plot-wis.R

@@ -56,10 +56,11 @@ plot_wis <- function(scores,
   assert_logical(relative_contributions, len = 1)
   assert_logical(flip, len = 1)
 
-  scores <- melt(scores,
-                 measure.vars = wis_components,
-                 variable.name = "wis_component_name",
-                 value.name = "component_value"
+  scores <- melt(
+    scores,
+    measure.vars = wis_components,
+    variable.name = "wis_component_name",
+    value.name = "component_value"
   )
 
   # stack or fill the geom_col position