[Rqda-commits] r64 - pkg/R

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

Author: wincent
Date: 2009-03-17 05:39:22 +0100 (Tue, 17 Mar 2009)
New Revision: 64

Modified:
   pkg/R/AddVarWidget.R
Log:


Modified: pkg/R/AddVarWidget.R
===================================================================
--- pkg/R/AddVarWidget.R	2009-03-17 03:42:46 UTC (rev 63)
+++ pkg/R/AddVarWidget.R	2009-03-17 04:39:22 UTC (rev 64)
@@ -14,7 +14,7 @@
       ## add item from ExistingItems
       ## needs modification
       if (!is.null(ExistingItems)){
-        articles <<- c(articles,unlist(apply(aa,1,function(x) list(list(Variable=x[1],Value=x[2],editable=TRUE))),FALSE))
+        articles <<- c(articles,unlist(apply(ExistingItems,1,function(x) list(list(Variable=x[1],Value=x[2],editable=TRUE))),FALSE))
         for (i in 1:length(articles))
           {
             iter <- model$append()$iter
@@ -109,6 +109,7 @@
      ans <- cbind(ans,ID)
      dbGetQuery(.rqda$qdacon,sprintf("delete from caseAttr where caseid='%s'",ID))
      dbWriteTable(.rqda$qdacon, "caseAttr", ans, append = TRUE,row.names=FALSE)
+     window$Destroy()## close
    }
   
   ## create window, etc
@@ -145,6 +146,3 @@
   window$showAll()
   invisible(window)
 }
-
-##var <- AddVarWidget()
-## var$Destroy() ## close