[Seqinr-commits] r2112 - in pkg: . R man

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Wed Mar 17 09:49:16 CET 2021


Author: simonpenel
Date: 2021-03-17 09:49:16 +0100 (Wed, 17 Mar 2021)
New Revision: 2112

Modified:
   pkg/DESCRIPTION
   pkg/R/ClassSeq.R
   pkg/man/print.SeqAcnucWeb.Rd
Log:
Fixing bug ncbicg->ncbigc spotted by F. Villatoro

Modified: pkg/DESCRIPTION
===================================================================
--- pkg/DESCRIPTION	2021-02-04 16:57:36 UTC (rev 2111)
+++ pkg/DESCRIPTION	2021-03-17 08:49:16 UTC (rev 2112)
@@ -1,7 +1,7 @@
 Encoding: UTF-8
 Package: seqinr
-Version: 4.2-7
-Date: 2021-02-4
+Version: 4.2-8
+Date: 2021-03-17
 Title: Biological Sequences Retrieval and Analysis
 Authors at R: c(person("Delphine", "Charif", role = "aut"),
              person("Olivier", "Clerc", role = "ctb"),

Modified: pkg/R/ClassSeq.R
===================================================================
--- pkg/R/ClassSeq.R	2021-02-04 16:57:36 UTC (rev 2111)
+++ pkg/R/ClassSeq.R	2021-03-17 08:49:16 UTC (rev 2112)
@@ -67,7 +67,7 @@
 print.SeqAcnucWeb <- function(x, ...)
 {
   res <- c(x, attr(x, "length"), attr(x, "frame"), attr(x, "ncbigc"))
-  names(res) <- c("name", "length", "frame", "ncbicg")
+  names(res) <- c("name", "length", "frame", "ncbigc")
   print(res, ...)
 }
 

Modified: pkg/man/print.SeqAcnucWeb.Rd
===================================================================
--- pkg/man/print.SeqAcnucWeb.Rd	2021-02-04 16:57:36 UTC (rev 2111)
+++ pkg/man/print.SeqAcnucWeb.Rd	2021-03-17 08:49:16 UTC (rev 2112)
@@ -9,24 +9,24 @@
 }
 \arguments{
   \item{x}{A sequence of class \code{SeqAcnucWeb}}
-  \item{\dots}{Arguments passed to \code{print}}	
+  \item{\dots}{Arguments passed to \code{print}}
 }
 \value{
  None.
 }
-\references{ 
+\references{
 \code{citation("seqinr")}
 }
 \author{J.R. Lobry}
 \seealso{\code{\link{print}} }
 \examples{
-\dontrun{ 
+\dontrun{
   ### Need internet connection
   choosebank("emblTP")
-  mylist <- query("mylist", "sp=felis catus")	
+  mylist <- query("mylist", "sp=felis catus")
   mylist$req[[1]]
-  #      name   length    frame   ncbicg 
-  # "A06937"     "34"      "0"      "1" 
+  #      name   length    frame   ncbigc 
+  # "A06937"     "34"      "0"      "1"
   }
 }
 \keyword{ manip }



More information about the Seqinr-commits mailing list