From c3d0630a70f5865c104805c6bbb0df7c6665cfbd Mon Sep 17 00:00:00 2001
From: "E. F. Haghish" <haghish.e.f@gmail.com>
Date: Tue, 16 Jul 2024 21:30:47 +0200
Subject: [PATCH] 3.2

---
 stata.output.r | 47 +++++++++++++++++++++++++----------------------
 1 file changed, 25 insertions(+), 22 deletions(-)

diff --git a/stata.output.r b/stata.output.r
index 48ad486..23e588c 100644
--- a/stata.output.r
+++ b/stata.output.r
@@ -435,30 +435,33 @@ if (!is.null(warnings())) {
   if (!exists("WARNINGS")) {
     WARNINGS = NULL
     summaryWarnings <- unlist(summary(warnings()))
-    for (loopItem in 1:length(summaryWarnings)) {
-      WARNINGS[loopItem] <- paste("In", toString(summaryWarnings[loopItem]), ":", names(summaryWarnings[loopItem]))
-    }
-    if (length(WARNINGS) > 0) {
-      if (length(WARNINGS) == 1) {
-        cat(paste("Warning message:\n", WARNINGS[1], "\n"))
-      } else {
-        cat(paste("\nThere were", length(WARNINGS), "unique warnings (type 'rcall warnings' to see them)\n"))
+    if (length(summaryWarnings) > 0) {
+      for (loopItem in 1:length(summaryWarnings)) {
+        WARNINGS[loopItem] <- paste("In", toString(summaryWarnings[loopItem]), ":", names(summaryWarnings[loopItem]))
       }
-    }
-    
-    # clean up
-    suppressWarnings(rm(summaryWarnings))
-    WARNINGS = as.matrix(WARNINGS)
-  }
-  
-  # generate the warnings, but first make sure WARNINGS has a single column!
-  if (exists("WARNINGS")) {
-    if (ncol(WARNINGS) == 1) {
-      for (loopItem in 1:length(WARNINGS)) {
-        assign(paste0("warning",loopItem), value = WARNINGS[loopItem])
+      
+      if (length(WARNINGS) > 0) {
+        if (length(WARNINGS) == 1) {
+          cat(paste("Warning message:\n", WARNINGS[1], "\n"))
+        } else {
+          cat(paste("\nThere were", length(WARNINGS), "unique warnings (type 'rcall warnings' to see them)\n"))
+        }
+      }
+      
+      # clean up
+      suppressWarnings(rm(summaryWarnings))
+      WARNINGS = as.matrix(WARNINGS)
+      
+      # generate the warnings, but first make sure WARNINGS has a single column!
+      if (exists("WARNINGS")) {
+        if (ncol(WARNINGS) == 1) {
+          for (loopItem in 1:length(WARNINGS)) {
+            assign(paste0("warning",loopItem), value = WARNINGS[loopItem])
+          }
+          rm(loopItem)
+          rm(WARNINGS)
+        }
       }
-      rm(loopItem)
-      rm(WARNINGS)
     }
   }
 }