fix a couple of typos in the convenience properties

Author: lawremi

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

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)
   }