add latest reviewer comments

Author: O957

NAMESPACE

@@ -8,13 +8,13 @@ export(generate_hub_ensemble)
 export(generate_oracle_output)
 export(generate_webtext_block)
 export(get_hub_name)
-export(get_webtext)
 export(included_locations)
 export(summarize_ref_date_forecasts)
 export(update_authorized_users)
 export(update_hub_target_data)
 export(write_ref_date_summary)
 export(write_ref_date_summary_all)
 export(write_ref_date_summary_ens)
+export(write_webtext)
 importFrom(rlang,":=")
 importFrom(rlang,.data)

R/get_webtext.R R/write_webtext.RR/get_webtext.R renamed to R/write_webtext.R

@@ -83,24 +83,22 @@ check_hospital_reporting_latency <- function(
       !.data$report_above_80_lgl
     )
 
-  reporting_rate_flag <- if (
-    length(latest_reporting_below80$location_name) > 0
-  ) {
+  any_locations_flagged <- nrow(latest_reporting_below80) > 0
+  if (any_locations_flagged) {
     location_list <- cli::ansi_collapse(
       latest_reporting_below80$location_name,
       sep = ", ",
       last = ", and "
     )
-
-    glue::glue(
+    reporting_rate_flag <- glue::glue(
       "The following jurisdictions had <80% of hospitals reporting for ",
       "the most recent week: {location_list}. ",
       "Lower reporting rates could impact forecast validity. Percent ",
       "of hospitals reporting is calculated based on the number of active ",
       "hospitals reporting complete data to NHSN for a given reporting week.\n\n"
     )
   } else {
-    ""
+    reporting_rate_flag <- ""
   }
 
   return(reporting_rate_flag)
@@ -315,7 +313,7 @@ generate_webtext_block <- function(
 #' character(0).
 #'
 #' @export
-get_webtext <- function(
+write_webtext <- function(
   reference_date,
   disease,
   base_hub_path,