From fc3c1de7d61c1fa2cf81e9bcc707fdbcc2e2d26b Mon Sep 17 00:00:00 2001
From: Aron Atkins <aron@gweep.net>
Date: Tue, 19 Oct 2021 11:34:44 -0400
Subject: [PATCH] limit enforce with stop(..call. = FALSE)

---
 R/bundle.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/bundle.R b/R/bundle.R
index 4a3bc55f..2691d1dc 100644
--- a/R/bundle.R
+++ b/R/bundle.R
@@ -210,12 +210,12 @@ enforceBundleLimits <- function(appDir, totalSize, totalFiles) {
     stop("The directory ", appDir, " cannot be deployed because it is too ",
          "large (the maximum size is ", getOption("rsconnect.max.bundle.size"),
          " bytes). Remove some files or adjust the rsconnect.max.bundle.size ",
-         "option.")
+         "option.", call. = FALSE)
   } else if (totalFiles > getOption("rsconnect.max.bundle.files")) {
     stop("The directory ", appDir, " cannot be deployed because it contains ",
          "too many files (the maximum number of files is ",
          getOption("rsconnect.max.bundle.files"), "). Remove some files or ",
-         "adjust the rsconnect.max.bundle.files option.")
+         "adjust the rsconnect.max.bundle.files option.", call. = TRUE)
   }
 }