2.5.0

haghish · Feb 28, 2019 · cf7798b · cf7798b
1 parent 6758660
commit cf7798b
Showing 1 changed file with 15 additions and 12 deletions.
diff --git a/stata.output.r b/stata.output.r
@@ -287,21 +287,24 @@ stata.output <- function(plusR, Vanilla="") {
     #Get RProfile from global
     file.create(RProfile)
 
-    for (i in 1:length(packageList)) {
-
-      # Attach packages
-      if (substr(packageList[i], 1, 8) == "package:") {
-        name <- substr(packageList[i], 9, nchar(packageList[i]))
-        write(paste("library(", name, ")", sep = ""), file=RProfile, append=TRUE)
-      }
-
-      # Attach variables and data
-      else {
-        name <- packageList[i]
-        write(paste("attach(", name, ")", sep = ""), file=RProfile, append=TRUE)
+    if (length(packageList) > 0) {
+      for (i in 1:length(packageList)) {
+
+        # Attach packages
+        if (substr(packageList[i], 1, 8) == "package:") {
+          name <- substr(packageList[i], 9, nchar(packageList[i]))
+          write(paste("library(", name, ")", sep = ""), file=RProfile, append=TRUE)
+        }
+
+        # Attach variables and data
+        else {
+          name <- packageList[i]
+          write(paste("attach(", name, ")", sep = ""), file=RProfile, append=TRUE)
+        }
       }
     }
 
+
   }
 }