update rounding (#972)

Author: sbidari

src/get_webtext.R

@@ -1,7 +1,7 @@
 #' Rscript to generate texts for the visualization webpage
 #' To run:
-#' Rscript src/get_webtext.R --reference-date "2025-02-22" --base-hub-path "."
-#'  --hub-reports-path "../covidhub-reports"
+#' Rscript src/get_webtext.R --reference-date "2025-02-22"
+#' --hub-reports-path "../covidhub-reports"
 
 parser <- argparser::arg_parser(
   "Generate text for the webpage."
@@ -171,27 +171,28 @@ reporting_rate_flag <- if (length(latest_reporting_below80$location_name) > 0) {
   ""
 }
 
-format_statistical_values <- function(median, pi_lower, pi_upper) {
-  half_width <- abs(pi_upper - pi_lower) / 2
-  digits <- -floor(log10(half_width))
-  c(
-    median = round(median, digits = digits),
-    lower = round(pi_lower, digits = digits),
-    upper = round(pi_upper, digits = digits)
-  )
+round_to_place <- function(value) {
+  if (value >= 1000) {
+    rounded_val <- round(value, -2)
+  } else if (value >= 10) {
+    rounded_val <- round(value, -1)
+  } else {
+    rounded_val <- round(value, 0)
+  }
+  return(rounded_val)
 }
 
 # generate variables used in the web text
-forecast_1wk_ahead <-
-  format_statistical_values(
-    ensemble_us_1wk_ahead$quantile_0.5_count,
-    ensemble_us_1wk_ahead$quantile_0.025_count,
-    ensemble_us_1wk_ahead$quantile_0.975_count
-  )
 
-median_forecast_1wk_ahead <- forecast_1wk_ahead["median"]
-lower_95ci_forecast_1wk_ahead <- forecast_1wk_ahead["lower"]
-upper_95ci_forecast_1wk_ahead <- forecast_1wk_ahead["upper"]
+median_forecast_1wk_ahead <- round_to_place(
+  ensemble_us_1wk_ahead$quantile_0.5_count
+)
+lower_95ci_forecast_1wk_ahead <- round_to_place(
+  ensemble_us_1wk_ahead$quantile_0.025_count
+)
+upper_95ci_forecast_1wk_ahead <- round_to_place(
+  ensemble_us_1wk_ahead$quantile_0.975_count
+)
 
 designated <- wkly_submissions[wkly_submissions$designated_model, ]
 not_designated <- wkly_submissions[!wkly_submissions$designated_model, ]