[Seqinr-commits] r1796 - pkg/R

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

Author: jeanlobry
Date: 2014-06-06 19:16:14 +0200 (Fri, 06 Jun 2014)
New Revision: 1796

Modified:
   pkg/R/db.growth.R
Log:
link source not available in dia.db.growth

Modified: pkg/R/db.growth.R
===================================================================
--- pkg/R/db.growth.R	2014-06-06 17:07:05 UTC (rev 1795)
+++ pkg/R/db.growth.R	2014-06-06 17:16:14 UTC (rev 1796)
@@ -1,4 +1,4 @@
-get.db.growth <- function(where = "http://www.ebi.ac.uk/embl/Documentation/Release_notes/current/relnotes.txt" )
+get.db.growth <- function(where = "ftp://ftp.ebi.ac.uk/pub/databases/embl/doc/relnotes.txt" )
 {
   if (!capabilities("http/ftp")) 
     stop("capabilities(\"http/ftp\") is not TRUE")
@@ -39,7 +39,6 @@
 dia.db.growth <- function( get.db.growth.out = get.db.growth(), 
   Moore = TRUE, ... )
 {
-  embl <- "http://www.ebi.ac.uk/embl/Documentation/Release_notes/current/relnotes.txt"
   op <- par(no.readonly = TRUE)
   par( bg = "blue" )
   par( fg = "yellow" )
@@ -57,8 +56,7 @@
     main = paste("The exponential growth of the DDBJ/EMBL/Genbank content\n",
            "Last update:", 
             Month[nrow(get.db.growth.out)]),
-    xlab = "Year", ylab = "Log10 number of nucleotides", 
-    sub = paste("Source:", embl),
+    xlab = "Year", ylab = "Log10 number of nucleotides",
     ... )
   abline(lm(log10(Nucleotides)~date),col="yellow")
   lm1 <- lm(log(Nucleotides)~date)