TESTS: Tweak walkAST() so that validation of S7 objects also works in…

… R (< 4.4.0) [#93]
futureverse · Jan 23, 2025 · cf93fb0 · cf93fb0
1 parent ba3708c
commit cf93fb0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/walkAST.R b/tests/walkAST.R
@@ -43,7 +43,7 @@ disp <- function(expr) {
   cat("Expression:\n")
   print(expr)
   cat("str():\n")
-  str(expr)
+  try(str(expr))
   cat(sprintf("typeof: %s\n", typeof(expr)))
   if (is.recursive(expr)) {
     cat("as.list():\n")