fix #172

dcomtois · Nov 7, 2022 · 8f0c16c · 8f0c16c
1 parent 0615d52
commit 8f0c16c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/print.summarytools.R b/R/print.summarytools.R
@@ -241,9 +241,9 @@ print.summarytools <- function(x,
   # (thus not taking advantage of print.summarytools() which makes results
   # much cleaner in the console)
   if (method == "pander" &&
-      (identical(deparse(sys.calls()[[sys.nframe() - 1]][2]), "x[[i]]()") ||
+      (identical(deparse(sys.calls()[[max(sys.nframe() - 1, 1)]][2]), "x[[i]]()") ||
        any(grepl(pattern = "fn_call = FUN(x = X[[i]]",
-                 x = deparse(sys.calls()[[sys.nframe() - 1]]), fixed = TRUE)))) {
+                 x = deparse(sys.calls()[[max(sys.nframe() - 1, 1)]]), fixed = TRUE)))) {
     message("For best results printing list objects with summarytools, ",
             "use print(x); if by() was used, use stby() instead")
   }