[Zooimage-commits] r154 - pkg/zooimage/R

[noreply at r-forge.r-project.org]

Author: kevin
Date: 2009-05-27 10:04:18 +0200 (Wed, 27 May 2009)
New Revision: 154

Modified:
   pkg/zooimage/R/gui.r
Log:
'AddVignToTrain' is the function used in ZooImage assistant to add new vignettes in a training set

Modified: pkg/zooimage/R/gui.r
===================================================================
--- pkg/zooimage/R/gui.r	2009-05-27 08:02:49 UTC (rev 153)
+++ pkg/zooimage/R/gui.r	2009-05-27 08:04:18 UTC (rev 154)
@@ -1458,3 +1458,12 @@
   if(exists("rec", env = .GlobalEnv)) rm(rec, envir = .GlobalEnv)
   if(exists("Bio.tab", env = .GlobalEnv)) rm(Bio.tab, envir = .GlobalEnv)
 }
+
+AddVignToTrain <- function(){
+  # Select zid files to add in the training set
+  zid <- selectFile(type = "Zid", multi = TRUE, quote = FALSE)
+  # Select the training set in which add new vignettes
+  dir <- paste(tkchooseDirectory(), collapse = " ")
+  # Extract vignettes in the training set in New_Vign_X directory
+  Add.Vign(zidfiles = zid, train = dir)  
+}