Merge pull request #78 from ropensci/date_note

Better checking of inputs

DESCRIPTION

@@ -15,6 +15,7 @@ Depends:
 Imports:
     hdf5r,
     httr (>= 1.1.0),
+    methods,
     rappdirs (>= 0.3.1),
     rvest,
     terra,

NAMESPACE

@@ -8,6 +8,7 @@ export(set_smap_credentials)
 importFrom(httr,GET)
 importFrom(httr,authenticate)
 importFrom(httr,write_disk)
+importFrom(methods,is)
 importFrom(rappdirs,user_cache_dir)
 importFrom(terra,crs)
 importFrom(terra,ext)

R/find_smap.R

@@ -31,7 +31,7 @@
 #'
 #' @param id A character string that refers to a specific SMAP dataset, e.g.,
 #'   \code{"SPL4SMGP"} for SMAP L4 Global 3-hourly 9 km Surface and Rootzone Soil
-#'   Moisture Geophysical Data. See "Details" for a list of supported data types 
+#'   Moisture Geophysical Data. See "Details" for a list of supported data types
 #'   and their associated id codes.
 #' @param dates An object of class Date or a character string formatted as
 #' %Y-%m-%d (e.g., "2016-04-01") which specifies the date(s) to search.
@@ -57,11 +57,12 @@
 #' }
 #'
 #' @importFrom httr GET
+#' @importFrom methods is
 #' @export
 
 find_smap <- function(id, dates, version) {
     check_creds()
-    if (class(dates) != "Date") {
+    if (!is(dates, "Date")) {
         dates <- try_make_date(dates)
     }
     ensure_dates_in_past(dates)