test proper class of argument

r-quantities · Aug 10, 2023 · 3cd552f · 3cd552f
1 parent a86ee43
commit 3cd552f
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/udunits.R b/R/udunits.R
@@ -18,6 +18,7 @@
 #' ud_are_convertible(units(a), "km/h")
 #' ud_are_convertible("s", "kg")
 ud_are_convertible = function(x, y) {
+	stopifnot(inherits(x, c("character", "symbolic_units")), inherits(y, c("character", "symbolic_units")))
 	res <- try(R_ut_are_convertible(
 	  R_ut_parse(as.character(x)), R_ut_parse(as.character(y))), silent = TRUE)
 	! inherits(res, "try-error") && res