Added os.manage to the main menu bar

talgalili · Mar 13, 2013 · 45cecc4 · 45cecc4
1 parent 88ab31e
commit 45cecc4
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 2 deletions.
diff --git a/NEWS b/NEWS
@@ -145,4 +145,5 @@ TODO for future releases:
 	* update RTools to be smarter about how to ask the user what to choose.  Also check if the Rtools is already installed or not (devtools has such a function)
 	* update README.md for 0.8.5
 	* Add install.notepad and install.notepadpp
-   * Maybe add some timer to the os.manage functions.  And also allow input for how long from x time to perform the action.
+   * Maybe add some timer to the os.manage functions.  And also allow input for how long from x time to perform the action.
+   * Add a rate function for the package
diff --git a/R/os.manage.r b/R/os.manage.r
@@ -195,7 +195,7 @@ os.manage  <- function(use_GUI = TRUE, ...) {
                 "Restart",
                 "Cancel")
 
-   the_answer <- menu(choices, graphics = use_GUI, title = "Managing action for your OS (for Windows)")            
+   the_answer <- menu(choices, graphics = use_GUI, title = "Manage your OS (for Windows)")            
 
    switch(the_answer, 
           os.shutdown(),

diff --git a/R/zzz.r b/R/zzz.r
@@ -70,6 +70,7 @@ add.installr.GUI <- function() {
       winMenuAddItem("Update", "Update R", "updateR()")
       winMenuAddItem("Update", "Update R packages", "update.packages(ask = F)")      
       winMenuAddItem("Update", "Install software", "installr()")
+      winMenuAddItem("Update", "Manage Windows", "os.manage()")      
       return(invisible(TRUE))
    } else {
       return(invisible(FALSE))