fix a couple of typos in the convenience properties

RConsortium · Aug 31, 2024 · fa861fe · fa861fe
1 parent 600eb07
commit fa861fe
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/property.R b/R/property.R
@@ -544,7 +544,7 @@ new_list_property <- function(..., validator = NULL, of = class_any, named = NA)
       if (identical(named, FALSE) && !is.null(names(value)))
         "must not have names",
       if (!is.null(validator))
-        valdiator(value)
+        validator(value)
       )
   })
   prop$of <- of

diff --git a/R/utils.R b/R/utils.R
@@ -94,7 +94,7 @@ check_name <- function(name, arg = deparse(substitute(name))) {
 check_scalar <- function(scalar, class, arg = deparse(substitute(scalar)))
 {
   if (length(scalar) != 1 || !class_inherits(scalar, class)) {
-    type_name <- if (identical(class, class_numeric)) "numeric" else class$name
+    type_name <- if (identical(class, class_numeric)) "numeric" else class$class
     msg <- sprintf("`%s` must be a single %s value", arg, type_name)
     stop(msg, call. = FALSE)
   }