Allow multi-class arguments (#48)

NEWS.md

@@ -1,5 +1,8 @@
 # rsi (development version)
 
+* Functions will no longer error if you construct their arguments with 
+  `glue::glue()` (or otherwise if they have more than one class).
+
 * `landsat_mask_function()` gains an argument, `include`, which lets you specify
   whether you'd like to include pixels that represent land (`"land"`), water
   (`"water"`), or both (`"both"`). Thanks to @mateuszrydzik for the report via

R/check_type_and_length.R

@@ -21,7 +21,7 @@ check_type_and_length <- function(...,
 
     arg_class <- class(arg)
     dot_class <- class(dots[[dot]])
-    if (arg_class != dot_class) {
+    if (!any(arg_class %in% dot_class)) {
       if ("integer" %in% arg_class && "numeric" %in% dot_class) {
         next # Purposefully doing nothing -- rely on implicit conversion
       } else if ("integer" %in% dot_class && rlang::is_integerish(arg)) {

tests/testthat/test-check_type_and_length.R

@@ -26,3 +26,13 @@ test_that("integer-ish are valid integers", {
   }
   expect_true(f1())
 })
+
+test_that("multi-class arguments are fine", {
+  f1 <- function(x) {
+    check_type_and_length(x = character())
+  }
+  y <- "a"
+  class(y) <- c("glue", class(y))
+
+  expect_true(f1(y))
+})