From 6650d3f514b078ed746bfab9fa449924625b6ce9 Mon Sep 17 00:00:00 2001
From: Tal Galili <tal.galili@gmail.com>
Date: Sun, 18 Aug 2013 16:33:52 +0300
Subject: [PATCH] mute error massage when starting in Rstudio.

---
 R/zzz.r | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/zzz.r b/R/zzz.r
index 71811ac..308fed5 100644
--- a/R/zzz.r
+++ b/R/zzz.r
@@ -81,7 +81,7 @@ remove.installr.GUI <- function() {
    # Thanks for Romain: http://stackoverflow.com/questions/4369334/first-lib-idiom-in-r-packages
    
    # adding and removing menus from the Rgui when loading and detaching the library
-   setHook(packageEvent("installr", "attach"), {function(pkgname, libpath) {add.installr.GUI()}  } )
+   setHook(packageEvent("installr", "attach"), {function(pkgname, libpath) {tryCatch(add.installr.GUI(), error = function(e) invisible(FALSE))}  } )
    setHook(packageEvent("installr", "detach"), {function(pkgname, libpath) {remove.installr.GUI()}  } )
    
 }