[Genabel-commits] r1558 - pkg/MetABEL/R

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

Author: lckarssen
Date: 2014-01-21 17:44:18 +0100 (Tue, 21 Jan 2014)
New Revision: 1558

Modified:
   pkg/MetABEL/R/metagwa.files.R
Log:
In MetABEL: Fixed CRAN warning: argument 'head' should be 'header'.


Modified: pkg/MetABEL/R/metagwa.files.R
===================================================================
--- pkg/MetABEL/R/metagwa.files.R	2014-01-21 16:21:58 UTC (rev 1557)
+++ pkg/MetABEL/R/metagwa.files.R	2014-01-21 16:44:18 UTC (rev 1558)
@@ -12,7 +12,7 @@
         while (tryerr == "try-error") {
             fname <- paste(dir, "/", pops[cpop], extens, sep="")
             cat("Population", pops[cpop], ", reading", fname)
-            df <- try(read.csv(file=fname, head=TRUE, stringsAsFactors=FALSE))
+            df <- try(read.csv(file=fname, header=TRUE, stringsAsFactors=FALSE))
             if (class(df) == "try-error") {
                 warning(paste("File", fname,
                               "can not be open. Skipping population",
@@ -72,7 +72,7 @@
             fname <- paste(dir, "/", pop, extens, sep="")
             cat("reading", fname)
             gc()
-            dft <- try(read.csv(file=fname, head=TRUE, stringsAsFactors=FALSE))
+            dft <- try(read.csv(file=fname, header=TRUE, stringsAsFactors=FALSE))
             if (class(dft) == "try-error") {
                 warning(paste("File", fname,
                               "can not be open. Skipping population", pop),