Merge pull request #33 from PLAY-behaviorome/0.2.9

Fix bug in download_session_csv.R.

Author: rogilmore

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: databraryapi
 Type: Package
 Title: Interacts With the Databrary.org API
-Version: 0.2.8
+Version: 0.2.9
 Author: Rick O. Gilmore [aut, cre]
 Authors@R: person("Rick", "O. Gilmore", email = "rog1@psu.edu",
   role = c("aut", "cre"))

R/download_session_csv.R

@@ -43,7 +43,7 @@ download_session_csv <- function(vol_id = 1,
 
   # Main routines
   if (vb)
-    message(paste0("Downloading spreadsheet from volume ", vol_id))
+    message(paste0("Downloading spreadsheet from volume ", vol_id, '.'))
   csv_url <-
     paste0("https://nyu.databrary.org/volume/", vol_id, "/csv")
 
@@ -88,11 +88,15 @@ download_session_csv <- function(vol_id = 1,
 
   #-----------------------------------------------------------------------------
   # Old code that kept throwing errors with a small set of volumes, e.g, 34, 1144
-  # Kept here for legacy purposes.
 
-  r <- httr::GET(csv_url)
-  if (httr::status_code(r) != 200) {
-    message("GET returns error code ", httr::status_code(r))
+  r <- try(httr::GET(csv_url), silent = TRUE)
+  
+  if ((class(r) == 'try-error')) {
+    if (vb) message ("`try-error` probably due to apostrophe bug in API.")
+    return(NULL)
+  }
+  if ((httr::status_code(r) != 200) | (class(r) == 'try-error')) {
+    if (vb) message("GET returns error")
     NULL
   } else {
     if (return_response) {

README.md

@@ -11,7 +11,7 @@ Full package documentation built using `pkgdown` can be found [here](https://PLA
 - Install the `devtools` package from CRAN: `install.packages("devtools")` if you have not already done so.
 - Load `devtools` into your local environment: `library(devtools)`
 - Install the `databraryapi` package via `install_github("PLAY-behaviorome/databraryapi")`. Required dependencies will be installed at this time.
-- The latest version is 0.2.8.
+- The latest version is 0.2.9.
 
 ## Use