From acc9891afeda6fd9ab215f006c0479334c5f4f88 Mon Sep 17 00:00:00 2001 From: Samuel Gratzl Date: Fri, 2 Apr 2021 08:59:23 -0400 Subject: [PATCH] fix: renable api blog entry --- content/blog/2020-08-28-api.Rmd | 27 +++++++++++++-------------- 1 file changed, 13 insertions(+), 14 deletions(-) diff --git a/content/blog/2020-08-28-api.Rmd b/content/blog/2020-08-28-api.Rmd index e32cabc5b..21d0938dc 100644 --- a/content/blog/2020-08-28-api.Rmd +++ b/content/blog/2020-08-28-api.Rmd @@ -285,21 +285,20 @@ can change for _weeks_ as new data arrives: ```{r q-versioning, warning=FALSE, message=FALSE, cache=TRUE} library(covidcast) library(dplyr) -# DISABLED for now since the API is not ready query_date <- "2020-08-01" -# covidcast_signal( -# data_source = "quidel", -# signal = "covid_ag_raw_pct_positive", -# start_day = query_date, -# end_day = query_date, -# geo_type = "state", -# geo_value = "ny", -# issues = c(query_date, "2020-09-04")) %>% -# select(time_value, value, sample_size, issue, lag) %>% -# distinct(value, .keep_all=TRUE) %>% -# knitr::kable("html", digits = 2, -# col.names = c("Test date", "Positivity rate (%)", "Sample size", -# "Issued on", "Lag (days)")) +covidcast_signal( + data_source = "quidel", + signal = "covid_ag_raw_pct_positive", + start_day = query_date, + end_day = query_date, + geo_type = "state", + geo_value = "ny", + issues = c(query_date, "2020-09-04")) %>% + select(time_value, value, sample_size, issue, lag) %>% + distinct(value, .keep_all=TRUE) %>% + knitr::kable("html", digits = 2, + col.names = c("Test date", "Positivity rate (%)", "Sample size", + "Issued on", "Lag (days)")) ``` Many data sources are subject to revisions: