add try_request

Author: aedobbyn

DESCRIPTION

@@ -11,6 +11,7 @@ Description: A wrapper around the 'COVID Tracking Project API'
     in the US.
 License: MIT + file LICENSE
 Imports:
+    curl (>= 4.3),
     dplyr (>= 0.8.3),
     glue (>= 1.3.1),
     httr (>= 1.4.1),

R/get.R

@@ -63,7 +63,13 @@ get_states_daily <- function(state = "all", date = "all") {
 #' get_states_info()
 #' }
 get_states_info <- function() {
-  get("states/info") %>%
+  tbl <- get("states/info")
+
+  if (nrow(tbl) == 0) {
+    return(tbl)
+  }
+
+  tbl %>%
     select(
       state, name,
       everything()
@@ -95,7 +101,14 @@ get_us_current <- function() {
 #' get_us_daily()
 #' }
 get_us_daily <- function() {
-  get("us/daily") %>%
+
+  tbl <- get("us/daily")
+
+  if (nrow(tbl) == 0) {
+    return(tbl)
+  }
+
+  tbl %>%
     rename(
       n_states = states
     ) %>%
@@ -129,7 +142,13 @@ get_counties_info <- function() {
 #' get_tracker_urls()
 #' }
 get_tracker_urls <- function() {
-  get("urls") %>%
+  tbl <- get("urls")
+
+  if (nrow(tbl) == 0) {
+    return(tbl)
+  }
+
+  tbl %>%
     rename(
       state_name = name
     ) %>%

R/utils.R

@@ -63,9 +63,23 @@ request <- function(url) {
     )
 }
 
+try_request <- purrr::possibly(
+  request,
+  otherwise = tibble(),
+  quiet = FALSE
+)
+
 get <- function(endpoint, query = "") {
   url <- glue::glue("{base_url}{endpoint}{query}")
-  request(url)
+
+  have_internet <- curl::has_internet()
+
+  if (!have_internet) {
+    message("No internet connection.")
+    return(tibble())
+  }
+
+  try_request(url)
 }
 
 replace_null <- function(x) {