refactor: use inherits()

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: boxr
 Type: Package
 Title: Interface for the 'Box.com API'
-Version: 0.3.6.9002
+Version: 0.3.6.9003
 Authors@R: c(
     person("Brendan", "Rocks", email = "[email protected]",
            role = c("aut")),
@@ -67,7 +67,7 @@ Suggests:
     usethis,
     covr
 VignetteBuilder: knitr
-RoxygenNote: 7.1.2
+RoxygenNote: 7.2.3
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
 RdMacros: lifecycle

NEWS.md

@@ -1,5 +1,9 @@
 # boxr 0.3.6 (development)
 
+## Internal
+
+* update to use `inherits()` (vs. string-comparison) to determine class-membership. (#246)
+
 * harmonizes the default location for tokens. 
   Now, `~` resolves to the home directory for all platforms. 
   A patch is applied offering to move tokens from "old" locations.

R/boxr__internal_dir_comparison.R

@@ -211,7 +211,7 @@
     to_update <- behind <- data.frame()
   }
 
-  if (class(absent) != "data.frame")
+  if (!inherits(absent, "data.frame"))
     absent <- data.frame()
 
   # The final list to output

R/boxr__internal_get.R

@@ -1,8 +1,8 @@
 handle_file_id <- function(obj) {
-  if (class(obj) == "boxr_file_reference") {
+  if (inherits(obj, "boxr_file_reference")) {
     # If the user's submitted a file reference object, extract the id for them
     file_id <- obj$id 
-  } else if (class(obj) == "boxr_object_list") {
+  } else if (inherits(obj, "boxr_object_list")) {
     # If the user's submitted a list of objects, extract the id from the first,
     # and emit a message so they know what's up
     if(length(obj) > 1)