From e85352316f022a5ae98a4dd12b8e39d5681cf61a Mon Sep 17 00:00:00 2001 From: Nat DeFries <42820733+nmdefries@users.noreply.github.com> Date: Wed, 8 Nov 2023 12:39:49 -0500 Subject: [PATCH 1/6] fetch new flusurv fields --- R/endpoints.R | 20 +++++++++++++++++++- 1 file changed, 19 insertions(+), 1 deletion(-) diff --git a/R/endpoints.R b/R/endpoints.R index da14c2bb..464cdfbd 100644 --- a/R/endpoints.R +++ b/R/endpoints.R @@ -1004,7 +1004,25 @@ pub_flusurv <- function(locations, epiweeks, ..., issues = NULL, lag = NULL, fet create_epidata_field_info("rate_age_2", "float"), create_epidata_field_info("rate_age_3", "float"), create_epidata_field_info("rate_age_4", "float"), - create_epidata_field_info("rate_overall", "float") + create_epidata_field_info("rate_overall", "float"), + create_epidata_field_info("rate_age_5", "float"), + create_epidata_field_info("rate_age_6", "float"), + create_epidata_field_info("rate_age_7", "float"), + create_epidata_field_info("rate_age_18t29", "float"), + create_epidata_field_info("rate_age_30t39", "float"), + create_epidata_field_info("rate_age_40t49", "float"), + create_epidata_field_info("rate_age_5t11", "float"), + create_epidata_field_info("rate_age_12t17", "float"), + create_epidata_field_info("rate_age_lt18", "float"), + create_epidata_field_info("rate_age_gte18", "float"), + create_epidata_field_info("rate_race_white", "float"), + create_epidata_field_info("rate_race_black", "float"), + create_epidata_field_info("rate_race_hisp", "float"), + create_epidata_field_info("rate_race_asian", "float"), + create_epidata_field_info("rate_race_natamer", "float"), + create_epidata_field_info("rate_sex_male", "float"), + create_epidata_field_info("rate_sex_female", "float"), + create_epidata_field_info("season", "text") ) ) %>% fetch(fetch_args = fetch_args) } From be81fc3a90dd6845df0fc24ed5ed31b89fd2224b Mon Sep 17 00:00:00 2001 From: nmdefries <42820733+nmdefries@users.noreply.github.com> Date: Tue, 4 Nov 2025 12:10:20 -0500 Subject: [PATCH 2/6] add a couple new fields --- R/endpoints.R | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/R/endpoints.R b/R/endpoints.R index 464cdfbd..9b5e7cb9 100644 --- a/R/endpoints.R +++ b/R/endpoints.R @@ -1015,6 +1015,9 @@ pub_flusurv <- function(locations, epiweeks, ..., issues = NULL, lag = NULL, fet create_epidata_field_info("rate_age_12t17", "float"), create_epidata_field_info("rate_age_lt18", "float"), create_epidata_field_info("rate_age_gte18", "float"), + create_epidata_field_info("rate_age_0tlt1", "float"), + create_epidata_field_info("rate_age_1t4", "float"), + create_epidata_field_info("rate_age_gte75", "float"), create_epidata_field_info("rate_race_white", "float"), create_epidata_field_info("rate_race_black", "float"), create_epidata_field_info("rate_race_hisp", "float"), @@ -1022,6 +1025,8 @@ pub_flusurv <- function(locations, epiweeks, ..., issues = NULL, lag = NULL, fet create_epidata_field_info("rate_race_natamer", "float"), create_epidata_field_info("rate_sex_male", "float"), create_epidata_field_info("rate_sex_female", "float"), + create_epidata_field_info("rate_flu_a", "float"), + create_epidata_field_info("rate_flu_b", "float"), create_epidata_field_info("season", "text") ) ) %>% fetch(fetch_args = fetch_args) From 681eeb4a3d6d8f1bd0d7d6e424a0a666f74363f8 Mon Sep 17 00:00:00 2001 From: nmdefries Date: Tue, 4 Nov 2025 17:13:35 +0000 Subject: [PATCH 3/6] docs: document (GHA) --- DESCRIPTION | 2 +- man/covidcast_epidata.Rd | 12 ++++++------ 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 7f94c34a..c65f914a 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -38,7 +38,7 @@ Imports: readr, tibble, xml2 -RoxygenNote: 7.2.3 +RoxygenNote: 7.3.3 Suggests: dplyr, ggplot2, diff --git a/man/covidcast_epidata.Rd b/man/covidcast_epidata.Rd index 2ab9fd75..c58772d8 100644 --- a/man/covidcast_epidata.Rd +++ b/man/covidcast_epidata.Rd @@ -27,7 +27,7 @@ an object containing fields for every signal: \if{html}{\out{
}}\preformatted{epidata <- covidcast_epidata() epidata$signals -#> # A tibble: 443 x 3 +#> # A tibble: 508 x 3 #> source signal short_description #> #> 1 chng smoothed_outpatient_cli Estimated percentage of outpatie~ @@ -36,11 +36,11 @@ epidata$signals #> 4 chng smoothed_adj_outpatient_covid COVID-Confirmed Doctor Visits #> 5 chng smoothed_outpatient_flu Estimated percentage of outpatie~ #> 6 chng smoothed_adj_outpatient_flu Estimated percentage of outpatie~ -#> 7 covid-act-now pcr_specimen_positivity_rate Proportion of PCR specimens test~ -#> 8 covid-act-now pcr_specimen_total_tests Total number of PCR specimens te~ -#> 9 doctor-visits smoothed_cli Percentage of daily doctor visit~ -#> 10 doctor-visits smoothed_adj_cli Percentage of daily doctor visit~ -#> # i 433 more rows +#> 7 chng 7dav_inpatient_covid Ratio of inpatient hospitalizati~ +#> 8 chng 7dav_outpatient_covid Ratio of outpatient doctor visit~ +#> 9 covid-act-now pcr_specimen_positivity_rate Proportion of PCR specimens test~ +#> 10 covid-act-now pcr_specimen_total_tests Total number of PCR specimens te~ +#> # i 498 more rows }\if{html}{\out{
}} If you use an editor that supports tab completion, such as RStudio, type From 16721b4fa5f3326fef9cb15bb11dea3d51fd4539 Mon Sep 17 00:00:00 2001 From: nmdefries Date: Tue, 4 Nov 2025 17:15:15 +0000 Subject: [PATCH 4/6] style: styler (GHA) --- R/endpoints.R | 79 ++++++++++++++++++++++++++----------------------- R/epidatacall.R | 21 ++++++------- 2 files changed, 53 insertions(+), 47 deletions(-) diff --git a/R/endpoints.R b/R/endpoints.R index 9b5e7cb9..70ace917 100644 --- a/R/endpoints.R +++ b/R/endpoints.R @@ -82,13 +82,14 @@ pvt_cdc <- function(auth, locations, epiweeks, fetch_args = fetch_args_list()) { #' @keywords endpoint #' @export pub_covid_hosp_facility_lookup <- function( - ..., - state = NULL, - ccn = NULL, - city = NULL, - zip = NULL, - fips_code = NULL, - fetch_args = fetch_args_list()) { + ..., + state = NULL, + ccn = NULL, + city = NULL, + zip = NULL, + fips_code = NULL, + fetch_args = fetch_args_list() +) { assert_character_param("state", state, len = 1, required = FALSE) assert_character_param("ccn", ccn, len = 1, required = FALSE) assert_character_param("city", city, len = 1, required = FALSE) @@ -166,11 +167,12 @@ pub_covid_hosp_facility_lookup <- function( #' @export # pub_covid_hosp_facility <- function( - hospital_pks, - collection_weeks, - ..., - publication_dates = NULL, - fetch_args = fetch_args_list()) { + hospital_pks, + collection_weeks, + ..., + publication_dates = NULL, + fetch_args = fetch_args_list() +) { assert_character_param("hospital_pks", hospital_pks) assert_timeset_param("collection_weeks", collection_weeks) assert_timeset_param("publication_dates", publication_dates, required = FALSE) @@ -700,17 +702,18 @@ pub_covidcast_meta <- function(fetch_args = fetch_args_list()) { #' @keywords endpoint #' @export pub_covidcast <- function( - source, - signals, - geo_type, - time_type, - geo_values, - time_values, - ..., - as_of = NULL, - issues = NULL, - lag = NULL, - fetch_args = fetch_args_list()) { + source, + signals, + geo_type, + time_type, + geo_values, + time_values, + ..., + as_of = NULL, + issues = NULL, + lag = NULL, + fetch_args = fetch_args_list() +) { # Check parameters if ( missing(source) || @@ -1150,13 +1153,14 @@ pub_fluview_meta <- function(fetch_args = fetch_args_list()) { #' @keywords endpoint #' @export pub_fluview <- function( - regions, - epiweeks, - ..., - issues = NULL, - lag = NULL, - auth = NULL, - fetch_args = fetch_args_list()) { + regions, + epiweeks, + ..., + issues = NULL, + lag = NULL, + auth = NULL, + fetch_args = fetch_args_list() +) { assert_character_param("regions", regions) assert_timeset_param("epiweeks", epiweeks) assert_timeset_param("issues", issues, required = FALSE) @@ -1783,13 +1787,14 @@ pvt_twitter <- function(auth, locations, ..., dates = NULL, epiweeks = NULL, fet #' @keywords endpoint #' @export pub_wiki <- function( - articles, - ..., - dates = NULL, - epiweeks = NULL, - hours = NULL, - language = "en", - fetch_args = fetch_args_list()) { + articles, + ..., + dates = NULL, + epiweeks = NULL, + hours = NULL, + language = "en", + fetch_args = fetch_args_list() +) { assert_character_param("articles", articles) assert_timeset_param("dates", dates, required = FALSE) assert_timeset_param("epiweeks", epiweeks, required = FALSE) diff --git a/R/epidatacall.R b/R/epidatacall.R index 3e2ad5ba..9bd56ac2 100644 --- a/R/epidatacall.R +++ b/R/epidatacall.R @@ -140,16 +140,17 @@ print.epidata_call <- function(x, ...) { #' @importFrom checkmate assert_character assert_logical assert_numeric #' fetch_args_list <- function( - ..., - fields = NULL, - disable_date_parsing = FALSE, - disable_data_frame_parsing = FALSE, - return_empty = FALSE, - timeout_seconds = 30, - base_url = NULL, - dry_run = FALSE, - debug = FALSE, - format_type = "json") { + ..., + fields = NULL, + disable_date_parsing = FALSE, + disable_data_frame_parsing = FALSE, + return_empty = FALSE, + timeout_seconds = 30, + base_url = NULL, + dry_run = FALSE, + debug = FALSE, + format_type = "json" +) { assert_character(fields, null.ok = TRUE, any.missing = FALSE) assert_logical(disable_date_parsing, null.ok = FALSE, len = 1L, any.missing = FALSE) assert_logical(disable_data_frame_parsing, null.ok = FALSE, len = 1L, any.missing = FALSE) From b18460c09ba7b10e5a8cb8b2a5f7a3015e39f204 Mon Sep 17 00:00:00 2001 From: nmdefries Date: Fri, 7 Nov 2025 18:39:57 +0000 Subject: [PATCH 5/6] style: styler (GHA) --- R/endpoints.R | 280 ++++++++++++++++++++++++++---------------------- R/epidatacall.R | 23 ++-- 2 files changed, 164 insertions(+), 139 deletions(-) diff --git a/R/endpoints.R b/R/endpoints.R index e1bddaeb..e82a9928 100644 --- a/R/endpoints.R +++ b/R/endpoints.R @@ -22,10 +22,11 @@ #' @keywords endpoint #' @export pvt_cdc <- function( - auth, - locations, - epiweeks = "*", - fetch_args = fetch_args_list()) { + auth, + locations, + epiweeks = "*", + fetch_args = fetch_args_list() +) { epiweeks <- get_wildcard_equivalent_dates(epiweeks, "week") assert_character_param("auth", auth, len = 1) @@ -88,13 +89,14 @@ pvt_cdc <- function( #' @keywords endpoint #' @export pub_covid_hosp_facility_lookup <- function( - ..., - state = NULL, - ccn = NULL, - city = NULL, - zip = NULL, - fips_code = NULL, - fetch_args = fetch_args_list()) { + ..., + state = NULL, + ccn = NULL, + city = NULL, + zip = NULL, + fips_code = NULL, + fetch_args = fetch_args_list() +) { rlang::check_dots_empty() assert_character_param("state", state, len = 1, required = FALSE) @@ -182,11 +184,12 @@ pub_covid_hosp_facility_lookup <- function( #' @export # pub_covid_hosp_facility <- function( - hospital_pks, - collection_weeks = "*", - ..., - publication_dates = NULL, - fetch_args = fetch_args_list()) { + hospital_pks, + collection_weeks = "*", + ..., + publication_dates = NULL, + fetch_args = fetch_args_list() +) { rlang::check_dots_empty() collection_weeks <- get_wildcard_equivalent_dates(collection_weeks, "day") @@ -567,12 +570,13 @@ pub_covid_hosp_facility <- function( #' @export # pub_covid_hosp_state_timeseries <- function( - states, - dates = "*", - ..., - as_of = NULL, - issues = NULL, - fetch_args = fetch_args_list()) { + states, + dates = "*", + ..., + as_of = NULL, + issues = NULL, + fetch_args = fetch_args_list() +) { # Check parameters rlang::check_dots_empty() @@ -982,17 +986,18 @@ pub_covidcast_meta <- function(fetch_args = fetch_args_list()) { #' @keywords endpoint #' @export pub_covidcast <- function( - source, - signals, - geo_type, - time_type, - geo_values = "*", - time_values = "*", - ..., - as_of = NULL, - issues = NULL, - lag = NULL, - fetch_args = fetch_args_list()) { + source, + signals, + geo_type, + time_type, + geo_values = "*", + time_values = "*", + ..., + as_of = NULL, + issues = NULL, + lag = NULL, + fetch_args = fetch_args_list() +) { rlang::check_dots_empty() # Check parameters @@ -1097,9 +1102,10 @@ pub_covidcast <- function( #' @keywords endpoint #' @export pub_delphi <- function( - system, - epiweek, - fetch_args = fetch_args_list()) { + system, + epiweek, + fetch_args = fetch_args_list() +) { assert_character_param("system", system) assert_timeset_param("epiweek", epiweek, len = 1) epiweek <- parse_timeset_input(epiweek) @@ -1134,9 +1140,10 @@ pub_delphi <- function( #' @keywords endpoint #' @export pub_dengue_nowcast <- function( - locations, - epiweeks = "*", - fetch_args = fetch_args_list()) { + locations, + epiweeks = "*", + fetch_args = fetch_args_list() +) { epiweeks <- get_wildcard_equivalent_dates(epiweeks, "week") assert_character_param("locations", locations) @@ -1177,11 +1184,12 @@ pub_dengue_nowcast <- function( #' @keywords endpoint #' @export pvt_dengue_sensors <- function( - auth, - names, - locations, - epiweeks = "*", - fetch_args = fetch_args_list()) { + auth, + names, + locations, + epiweeks = "*", + fetch_args = fetch_args_list() +) { epiweeks <- get_wildcard_equivalent_dates(epiweeks, "week") assert_character_param("auth", auth, len = 1) @@ -1234,12 +1242,13 @@ pvt_dengue_sensors <- function( #' @keywords endpoint #' @export pub_ecdc_ili <- function( - regions, - epiweeks = "*", - ..., - issues = NULL, - lag = NULL, - fetch_args = fetch_args_list()) { + regions, + epiweeks = "*", + ..., + issues = NULL, + lag = NULL, + fetch_args = fetch_args_list() +) { rlang::check_dots_empty() epiweeks <- get_wildcard_equivalent_dates(epiweeks, "week") @@ -1301,12 +1310,13 @@ pub_ecdc_ili <- function( #' @keywords endpoint #' @export pub_flusurv <- function( - locations, - epiweeks = "*", - ..., - issues = NULL, - lag = NULL, - fetch_args = fetch_args_list()) { + locations, + epiweeks = "*", + ..., + issues = NULL, + lag = NULL, + fetch_args = fetch_args_list() +) { rlang::check_dots_empty() epiweeks <- get_wildcard_equivalent_dates(epiweeks, "week") @@ -1390,12 +1400,13 @@ pub_flusurv <- function( #' @keywords endpoint #' @export pub_fluview_clinical <- function( - regions, - epiweeks = "*", - ..., - issues = NULL, - lag = NULL, - fetch_args = fetch_args_list()) { + regions, + epiweeks = "*", + ..., + issues = NULL, + lag = NULL, + fetch_args = fetch_args_list() +) { rlang::check_dots_empty() epiweeks <- get_wildcard_equivalent_dates(epiweeks, "week") @@ -1497,17 +1508,18 @@ pub_fluview_meta <- function(fetch_args = fetch_args_list()) { #' @keywords endpoint #' @export pub_fluview <- function( - regions, - epiweeks = "*", - ..., - issues = NULL, - lag = NULL, - auth = NULL, - fetch_args = fetch_args_list()) { + regions, + epiweeks = "*", + ..., + issues = NULL, + lag = NULL, + auth = NULL, + fetch_args = fetch_args_list() +) { rlang::check_dots_empty() epiweeks <- get_wildcard_equivalent_dates(epiweeks, "week") - + assert_character_param("regions", regions) assert_timeset_param("epiweeks", epiweeks) assert_timeset_param("issues", issues, required = FALSE) @@ -1577,9 +1589,10 @@ pub_fluview <- function( #' @keywords endpoint #' @export pub_gft <- function( - locations, - epiweeks = "*", - fetch_args = fetch_args_list()) { + locations, + epiweeks = "*", + fetch_args = fetch_args_list() +) { epiweeks <- get_wildcard_equivalent_dates(epiweeks, "week") assert_character_param("locations", locations) @@ -1622,11 +1635,12 @@ pub_gft <- function( #' @keywords endpoint #' @export pvt_ght <- function( - auth, - locations, - epiweeks = "*", - query, - fetch_args = fetch_args_list()) { + auth, + locations, + epiweeks = "*", + query, + fetch_args = fetch_args_list() +) { epiweeks <- get_wildcard_equivalent_dates(epiweeks, "week") assert_character_param("auth", auth, len = 1) @@ -1671,12 +1685,13 @@ pvt_ght <- function( #' @keywords endpoint #' @export pub_kcdc_ili <- function( - regions, - epiweeks = "*", - ..., - issues = NULL, - lag = NULL, - fetch_args = fetch_args_list()) { + regions, + epiweeks = "*", + ..., + issues = NULL, + lag = NULL, + fetch_args = fetch_args_list() +) { rlang::check_dots_empty() epiweeks <- get_wildcard_equivalent_dates(epiweeks, "week") @@ -1772,9 +1787,10 @@ pub_meta <- function(fetch_args = fetch_args_list()) { #' @keywords endpoint #' @export pub_nidss_dengue <- function( - locations, - epiweeks = "*", - fetch_args = fetch_args_list()) { + locations, + epiweeks = "*", + fetch_args = fetch_args_list() +) { epiweeks <- get_wildcard_equivalent_dates(epiweeks, "week") assert_character_param("locations", locations) @@ -1816,12 +1832,13 @@ pub_nidss_dengue <- function( #' @keywords endpoint #' @export pub_nidss_flu <- function( - regions, - epiweeks = "*", - ..., - issues = NULL, - lag = NULL, - fetch_args = fetch_args_list()) { + regions, + epiweeks = "*", + ..., + issues = NULL, + lag = NULL, + fetch_args = fetch_args_list() +) { rlang::check_dots_empty() epiweeks <- get_wildcard_equivalent_dates(epiweeks, "week") @@ -1883,10 +1900,11 @@ pub_nidss_flu <- function( #' @keywords endpoint #' @export pvt_norostat <- function( - auth, - locations, - epiweeks = "*", - fetch_args = fetch_args_list()) { + auth, + locations, + epiweeks = "*", + fetch_args = fetch_args_list() +) { epiweeks <- get_wildcard_equivalent_dates(epiweeks, "week") assert_character_param("auth", auth, len = 1) @@ -1929,9 +1947,10 @@ pvt_norostat <- function( #' @keywords endpoint #' @export pub_nowcast <- function( - locations, - epiweeks = "*", - fetch_args = fetch_args_list()) { + locations, + epiweeks = "*", + fetch_args = fetch_args_list() +) { epiweeks <- get_wildcard_equivalent_dates(epiweeks, "week") assert_character_param("locations", locations) @@ -1970,12 +1989,13 @@ pub_nowcast <- function( #' @keywords endpoint #' @export pub_paho_dengue <- function( - regions, - epiweeks = "*", - ..., - issues = NULL, - lag = NULL, - fetch_args = fetch_args_list()) { + regions, + epiweeks = "*", + ..., + issues = NULL, + lag = NULL, + fetch_args = fetch_args_list() +) { rlang::check_dots_empty() epiweeks <- get_wildcard_equivalent_dates(epiweeks, "week") @@ -2033,10 +2053,11 @@ pub_paho_dengue <- function( #' @keywords endpoint #' @export pvt_quidel <- function( - auth, - locations, - epiweeks = "*", - fetch_args = fetch_args_list()) { + auth, + locations, + epiweeks = "*", + fetch_args = fetch_args_list() +) { epiweeks <- get_wildcard_equivalent_dates(epiweeks, "week") assert_character_param("auth", auth, len = 1) @@ -2092,11 +2113,12 @@ pvt_quidel <- function( #' @keywords endpoint #' @export pvt_sensors <- function( - auth, - names, - locations, - epiweeks = "*", - fetch_args = fetch_args_list()) { + auth, + names, + locations, + epiweeks = "*", + fetch_args = fetch_args_list() +) { epiweeks <- get_wildcard_equivalent_dates(epiweeks, "week") assert_character_param("auth", auth, len = 1) @@ -2151,12 +2173,13 @@ pvt_sensors <- function( #' @keywords endpoint #' @export pvt_twitter <- function( - auth, - locations, - ..., - time_type = c("day", "week"), - time_values = "*", - fetch_args = fetch_args_list()) { + auth, + locations, + ..., + time_type = c("day", "week"), + time_values = "*", + fetch_args = fetch_args_list() +) { rlang::check_dots_empty() time_type <- match.arg(time_type) @@ -2235,13 +2258,14 @@ pvt_twitter <- function( #' @keywords endpoint #' @export pub_wiki <- function( - articles, - ..., - time_type = c("day", "week"), - time_values = "*", - hours = NULL, - language = "en", - fetch_args = fetch_args_list()) { + articles, + ..., + time_type = c("day", "week"), + time_values = "*", + hours = NULL, + language = "en", + fetch_args = fetch_args_list() +) { rlang::check_dots_empty() time_type <- match.arg(time_type) diff --git a/R/epidatacall.R b/R/epidatacall.R index c97a6d16..cd3c06b4 100644 --- a/R/epidatacall.R +++ b/R/epidatacall.R @@ -161,17 +161,18 @@ print.epidata_call <- function(x, ...) { #' @aliases fetch_args #' @importFrom checkmate assert_character assert_logical assert_numeric fetch_args_list <- function( - ..., - fields = NULL, - disable_date_parsing = FALSE, - disable_data_frame_parsing = FALSE, - return_empty = FALSE, - timeout_seconds = 15 * 60, - base_url = NULL, - dry_run = FALSE, - debug = FALSE, - format_type = c("json", "classic", "csv"), - refresh_cache = FALSE) { + ..., + fields = NULL, + disable_date_parsing = FALSE, + disable_data_frame_parsing = FALSE, + return_empty = FALSE, + timeout_seconds = 15 * 60, + base_url = NULL, + dry_run = FALSE, + debug = FALSE, + format_type = c("json", "classic", "csv"), + refresh_cache = FALSE +) { rlang::check_dots_empty() assert_character(fields, null.ok = TRUE, any.missing = FALSE) From 5291cd68a8403efddb384397b0ae0498a34da484 Mon Sep 17 00:00:00 2001 From: nmdefries Date: Fri, 7 Nov 2025 18:40:03 +0000 Subject: [PATCH 6/6] docs: document (GHA) --- DESCRIPTION | 2 +- man/covidcast_epidata.Rd | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index ad1d2f35..c32a6132 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -68,7 +68,7 @@ Encoding: UTF-8 Language: en-US LazyData: true Roxygen: list(markdown = TRUE) -RoxygenNote: 7.3.2 +RoxygenNote: 7.3.3 Collate: 'auth.R' 'avail_endpoints.R' diff --git a/man/covidcast_epidata.Rd b/man/covidcast_epidata.Rd index fbf3f1cc..e3a997a8 100644 --- a/man/covidcast_epidata.Rd +++ b/man/covidcast_epidata.Rd @@ -27,7 +27,7 @@ an object containing fields for every signal: \if{html}{\out{
}}\preformatted{epidata <- covidcast_epidata() epidata$signals -#> # A tibble: 468 x 3 +#> # A tibble: 508 x 3 #> source signal short_description #> #> 1 chng smoothed_outpatient_cli Estimated percentage of outpatie~ @@ -40,7 +40,7 @@ epidata$signals #> 8 chng 7dav_outpatient_covid Ratio of outpatient doctor visit~ #> 9 covid-act-now pcr_specimen_positivity_rate Proportion of PCR specimens test~ #> 10 covid-act-now pcr_specimen_total_tests Total number of PCR specimens te~ -#> # i 458 more rows +#> # i 498 more rows }\if{html}{\out{
}} If you use an editor that supports tab completion, such as RStudio, type