Fix for as.function

nlmixr2 · Nov 29, 2023 · 210fa8c · 210fa8c
1 parent 1001363
commit 210fa8c
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git 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
@@ -90,6 +90,7 @@ rxTest({
   })
 
   test_that("meta information parsing", {
+
     one.cmt <- function() {
       meta1 <- "meta"
       ini({
-Original file line number
+Diff line change
@@ Expand Up / @@ -90,6 +90,7 @@ rxTest({ @@
       })
       test_that("meta information parsing", {
         one.cmt <- function() {
           meta1 <- "meta"
           ini({
@@ Expand Down @@