Merge pull request #29 from PLAY-behaviorome/0.2.7

Fix download_session_csv() bug and add some tests.

Author: rogilmore

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: databraryapi
 Type: Package
 Title: Interacts With the Databrary.org API
-Version: 0.2.6
+Version: 0.2.7
 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

@@ -14,12 +14,34 @@ download_session_csv <- function(vol_id = 1,
                                  vb = FALSE) {
   # Error handling
   if (length(vol_id) > 1) {
-    stop("vol_id must have length 1.")
+    stop("`vol_id` must have length 1.")
   }
   if ((!is.numeric(vol_id)) || (vol_id <= 0)) {
-    stop("vol_id must be an integer > 0.")
+    stop("`vol_id` must be an integer > 0.")
   }
 
+  if (!is.logical(to_df)) {
+    stop("`to_df` must be a logical value.")
+  }
+  if (length(to_df) > 1) {
+    stop("`to_df` must have length 1.")
+  }
+  
+  if (!is.logical(return_response)) {
+    stop("`return_response` must be a logical value.")
+  }
+  if (length(return_response) > 1) {
+    stop("`return_response` must have length 1.")
+  }
+  
+  if (!is.logical(vb)) {
+    stop("`vb` must be a logical value.")
+  }
+  if (length(vb) > 1) {
+    stop("`vb` must have length 1.")
+  }
+  
+  # Main routines
   if (vb)
     message(paste0("Downloading spreadsheet from volume ", vol_id))
   csv_url <-

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.6.
+- The latest version is 0.2.7.
 
 ## Use