[Seqinr-commits] r1817 - in pkg: R man

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

Author: simonpenel
Date: 2014-11-06 18:09:25 +0100 (Thu, 06 Nov 2014)
New Revision: 1817

Modified:
   pkg/R/db.growth.R
   pkg/man/dotchart.uco.Rd
   pkg/man/get.db.growth.Rd
Log:
Modification of wrong url, setting example in dotchart.uco to dontrun


Modified: pkg/R/db.growth.R
===================================================================
--- pkg/R/db.growth.R	2014-11-05 16:53:58 UTC (rev 1816)
+++ pkg/R/db.growth.R	2014-11-06 17:09:25 UTC (rev 1817)
@@ -39,6 +39,7 @@
 dia.db.growth <- function( get.db.growth.out = get.db.growth(), 
   Moore = TRUE, ... )
 {
+  embl <- "ftp://ftp.ebi.ac.uk/pub/databases/embl/doc/relnotes.txt"
   op <- par(no.readonly = TRUE)
   par( bg = "blue" )
   par( fg = "yellow" )
@@ -57,6 +58,7 @@
            "Last update:", 
             Month[nrow(get.db.growth.out)]),
     xlab = "Year", ylab = "Log10 number of nucleotides",
+    sub = paste("Source:", embl),
     ... )
   abline(lm(log10(Nucleotides)~date),col="yellow")
   lm1 <- lm(log(Nucleotides)~date)

Modified: pkg/man/dotchart.uco.Rd
===================================================================
--- pkg/man/dotchart.uco.Rd	2014-11-05 16:53:58 UTC (rev 1816)
+++ pkg/man/dotchart.uco.Rd	2014-11-06 17:09:25 UTC (rev 1817)
@@ -42,6 +42,7 @@
 \seealso{ \code{\link{dotchart}}, \code{\link{uco}}, \code{\link{aaa}},
 \code{\link{translate}} }
 \examples{
+\dontrun{
 # Load dataset:
 data(ec999)
 # Compute codon usage for all coding sequences:
@@ -57,4 +58,5 @@
 # Plot data:
 dotchart.uco(global, main = title) 
 }
+}
 \keyword{hplot}

Modified: pkg/man/get.db.growth.Rd
===================================================================
--- pkg/man/get.db.growth.Rd	2014-11-05 16:53:58 UTC (rev 1816)
+++ pkg/man/get.db.growth.Rd	2014-11-06 17:09:25 UTC (rev 1817)
@@ -10,7 +10,7 @@
 }
 \usage{
 get.db.growth(
-where = "http://www.ebi.ac.uk/embl/Documentation/Release_notes/current/relnotes.txt")
+where = "ftp://ftp.ebi.ac.uk/pub/databases/embl/doc/relnotes.txt")
 dia.db.growth( get.db.growth.out = get.db.growth(), Moore = TRUE, ... )
 }
 \arguments{