From 210fa8cff4aac19606fa9e6ebab298bd3e68f17d Mon Sep 17 00:00:00 2001
From: "Matthew L. Fidler" <matthew.fidler@gmail.com>
Date: Wed, 29 Nov 2023 17:37:45 -0600
Subject: [PATCH] Fix for as.function

---
 R/rxUiGet.R              | 2 +-
 tests/testthat/test-ui.R | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/rxUiGet.R b/R/rxUiGet.R
index 7b8692d8e..8393dae70 100644
--- a/R/rxUiGet.R
+++ b/R/rxUiGet.R
@@ -188,7 +188,7 @@ rxUiGet.funPrint <- function(x, ...) {
     .var <- .ls[.i]
     .val <- .x$meta[[.ls[.i]]]
     .isLotri <- FALSE
-    if (checkmate::checkMatrix(.val, any.missing=FALSE, row.names="strict", col.names="strict")) {
+    if (checkmate::testMatrix(.val, any.missing=FALSE, row.names="strict", col.names="strict")) {
       .dn <- dimnames(.val)
       if (identical(.dn[[1]], .dn[[2]]) && isSymmetric(.val)) {
         class(.val) <- c("lotriFix", class(.val))
diff --git a/tests/testthat/test-ui.R b/tests/testthat/test-ui.R
index ad08aa5fe..6ad66edd7 100644
--- a/tests/testthat/test-ui.R
+++ b/tests/testthat/test-ui.R
@@ -90,6 +90,7 @@ rxTest({
   })
 
   test_that("meta information parsing", {
+
     one.cmt <- function() {
       meta1 <- "meta"
       ini({