Fix for issue #186 - check that list has length > 0 before checking c…

…lass
dcomtois · Aug 20, 2023 · d00f80b · d00f80b
1 parent 3e63884
commit d00f80b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/print.list.R b/R/print.list.R
@@ -33,7 +33,7 @@ print.list <- function(x,
                        escape.pipe   = st_options("escape.pipe"),
                        ...) {
 
-  if (inherits(x[[1]], "summarytools")) {
+  if (length(x) > 0 && inherits(x[[1]], "summarytools")) {
 
     view(x,
          method        = method,