[Seqinr-commits] r1667 - pkg/R

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

Author: lobry
Date: 2009-10-12 18:50:32 +0200 (Mon, 12 Oct 2009)
New Revision: 1667

Modified:
   pkg/R/read.fasta.R
Log:
no more File argument

Modified: pkg/R/read.fasta.R
===================================================================
--- pkg/R/read.fasta.R	2009-10-12 16:32:09 UTC (rev 1666)
+++ pkg/R/read.fasta.R	2009-10-12 16:50:32 UTC (rev 1667)
@@ -1,16 +1,10 @@
 read.fasta <- function(file = system.file("sequences/ct.fasta", package = "seqinr"), 
-  seqtype = c("DNA", "AA"), File = NULL, as.string = FALSE, forceDNAtolower = TRUE,
+  seqtype = c("DNA", "AA"), as.string = FALSE, forceDNAtolower = TRUE,
   set.attributes = TRUE, legacy.mode = TRUE, seqonly = FALSE, strip.desc = FALSE,
   bfa = FALSE, sizeof.longlong = .Machine$sizeof.longlong,
   endian = .Platform$endian, apply.mask = TRUE)
 {
-  #
-  # Check arguments:
-  #
-  if(!is.null(File)){
-    file <- File
-    warning("File is deprecated, use file instead")
-  }
+
   seqtype <- match.arg(seqtype) # default is DNA
   
   ##############################