just use glue within messages for consistency

Author: timcadman

R/utils.R

@@ -23,15 +23,15 @@
 #' @param obj The object whose class should be checked.
 #' @param obj_name A character string with the name of the object (used in error messages).
 #' @param permitted_classes A character vector of allowed class names.
-#'
+#' @importFrom glue glue glue_collapse
 #' @return Invisibly returns `TRUE` if the class check passes; otherwise throws an error.
 #' @noRd
 .check_class <- function(obj, obj_name, permitted_classes) {
   typ <- class(obj)
 
   if (!any(permitted_classes %in% typ)) {
     msg <- glue(
-      "The server-side object must be of type {paste(permitted_classes, collapse = ' or ')}. ",
+      "The server-side object must be of type {glue_collapse(permitted_classes, sep = ' or ')}. ",
       "'{obj_name}' is type {typ}."
     )