[Genabel-commits] r1388 - pkg/GenABEL/R

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

Author: maksim
Date: 2013-11-14 03:52:20 +0100 (Thu, 14 Nov 2013)
New Revision: 1388

Modified:
   pkg/GenABEL/R/impute2databel.R
Log:

This commit returns the function "impute2databel" back to the Revision 1320 (from the revision 1321 made by Yurii). In the present commit, the package name "GenABEL" is replaced back by "DatABEL" in fuction ".Call" because GenABEL does not have functions called "iterator" (and databel_impute_prob_2_databel_mach_dose called by iterator).
Yurii reported that he commited revision 1321 to make GenABEL working on Mac/Win. But my R 3.0.2 (2013-09-25) on UBUNTU generates an error meassage in R CMD check: ERROR in test.impute2databel: Error in .Call("iterator", tmp_fv at data, as.integer(0), as.integer(0), : "iterator" not available for .Call() for package "GenABEL".

I will keep my eye on this function for a while. If you see any incompatibility problems with this function, please report it to me.





Modified: pkg/GenABEL/R/impute2databel.R
===================================================================
--- pkg/GenABEL/R/impute2databel.R	2013-11-12 21:36:30 UTC (rev 1387)
+++ pkg/GenABEL/R/impute2databel.R	2013-11-14 02:52:20 UTC (rev 1388)
@@ -108,13 +108,13 @@
     res <- .Call("iterator", tmp_fv at data, as.integer(0), as.integer(0),
                  as.character("databel_impute_prob_2_databel_mach_dose"),
                  paste(outfile, ".dose", sep=""), as.integer(2),
-                 as.integer(0), PACKAGE="GenABEL")
+                 as.integer(0), PACKAGE="DatABEL")
     dosefile <- databel(paste(outfile, ".dose", sep=""), 64, readonly=FALSE)
     if (makeprob) {
       res <- .Call("iterator", tmp_fv at data, as.integer(0), as.integer(0),
                    as.character("databel_impute_prob_2_databel_mach_prob"),
                    paste(outfile, ".prob", sep=""), as.integer(2),
-                   as.integer(0), PACKAGE="GenABEL")
+                   as.integer(0), PACKAGE="DatABEL")
       probfile <- databel(paste(outfile, ".prob", sep=""), 64, readonly=FALSE)
     }