issue a warning and return NULL (rather than error) for attempts to c…

…reate multiple graphics devices
rstudio · Jan 5, 2012 · 61ea10a · 61ea10a
1 parent 1dc03ca
commit 61ea10a
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/cpp/r/session/graphics/RGraphicsDevice.cpp b/src/cpp/r/session/graphics/RGraphicsDevice.cpp
@@ -418,7 +418,11 @@ SEXP createGD()
 {   
    // error if there is already an RStudio device
    if (s_pGEDevDesc != NULL)
-      Rf_error("Only one RStudio graphics device is permitted");
+   {
+      Rf_warning("Only one RStudio graphics device is permitted");
+      return R_NilValue;
+   }
+
 
    R_CheckDeviceAvailable();