Add Function For Generating Forecast Webpage Text

[O957]

This PR:

• Adds over get_webtext.R from https://github.com/CDCgov/covid19-forecast-hub/blob/main/src/get_webtext.R.
• Refactors get_webtext.R minorly:
  • Updates code and docstrings to use interchangeable hub prefixes and names.
  • Updates code to use glue instead of paste.
  • Updates the function pull_nhsn() to pull_data_cdc_gov().
  • Adds a function called get_webtext, removing the argument parsing logic and allowing use of devtools::document().
• Updates pre-commit with pre-commit autoupdate.

[codecov-commenter]

Codecov Report

❌ Patch coverage is 0% with 233 lines in your changes missing coverage. Please review.
✅ Project coverage is 6.65%. Comparing base (02fe0c9) to head (0851315).

Files with missing lines	Patch %	Lines
R/write_webtext.R	0.00%	233 Missing ⚠️

Additional details and impacted files

@@           Coverage Diff            @@
##            main     #38      +/-   ##
========================================
- Coverage   8.74%   6.65%   -2.09%     
========================================
  Files         10      11       +1     
  Lines        743     976     +233     
========================================
  Hits          65      65              
- Misses       678     911     +233     

☔ View full report in Codecov by Sentry.
📢 Have feedback on the report? Share it here.

🚀 New features to boost your workflow:

• ❄️ Test Analytics: Detect flaky tests, report on failures, and find test suite problems.

[O957]

This can be reviewed @dylanhmorris (tagging since notification may have been buried or perceived as stale).

[dylanhmorris]

Thank you for flagging. Will review.

[dylanhmorris]

A few changes needed, and one decision to make about refactor now versus later (I favor now): https://github.com/CDCgov/hubhelpr/pull/38/files#r2603084226

[dylanhmorris]

Style point: I think this is long enough that it shouldn't be a conditional assignment.

Suggested change

	reporting_rate_flag <- if (
	length(latest_reporting_below80$location_name) > 0
	) {
	location_list <- cli::ansi_collapse(
	latest_reporting_below80$location_name,
	sep = ", ",
	last = ", and "
	)
	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 {
	""
	}
	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 "
	)
	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 <- ""
	}