version 0.5.2

DESCRIPTION

@@ -1,16 +1,16 @@
 Package: packClassic
 Type: Package
-Title: Toy Pack Classic
-Version: 0.5.1
-Date: 2009-05-23
-Author: Author: Christophe Genolini (and some helpfull readers...)
-Maintainer: <genolini@u-paris10.fr>
+Title: Toy example of Pack Classic
+Version: 0.5.2
+Date: 2009-10-15
+Author: Christophe Genolini
+Maintainer: Christophe Genolini <genolini@u-paris10.fr>
 Description: This package comes to illustrate the book "Petit Manuel de
         Programmation Orientee Objet sous R"
 License: GPL (>= 2.0)
 LazyLoad: yes
 Depends: graphics
-URL: www.r-project.org,christophe.genolini.free.fr/webTutorial
-Packaged: 2009-05-23 11:12:29 UTC; Christophe
+URL: www.r-project.org
+Packaged: 2009-10-11 18:17:29 UTC; Christophe
 Repository: CRAN
-Date/Publication: 2009-05-24 08:36:32
+Date/Publication: 2009-10-11 18:30:13

DESCRIPTION_EX

@@ -0,0 +1,10 @@
+Package: packClassic
+Type: Package
+Title: What the package does (short line)
+Version: 1.0
+Date: 2008-07-22
+Author: Who wrote it
+Maintainer: Who to complain to <yourfault@somewhere.net>
+Description: More about what it does (maybe more than one line)
+License: What license is it under?
+LazyLoad: yes

NAMESPACE

@@ -1,6 +1,6 @@
-
 export("publicA",
        ".publicB",
        "publicC"
 )
+
 importFrom(graphics,plot)

R/progClassic.R

@@ -1,9 +1,10 @@
-# ################################################################
-### ProgClassic .R ###
-# ################################################################
-publicA<-function(x){plot(x+1)}
-privateA<-function(x){x+2}
-.publicB<-function(x){x+10}
-.privateB<-function(x){x+20}
-publicC<-function(x){publicA(privateA(x))}
-privateC<-function(x){.publicB(.privateB(x))}
+######################################################
+###                  ProgClassic.R                 ###
+######################################################
+
+publicA     <- function(x){plot(x+1)}
+privateA    <- function(x){x+2}
+.publicB    <- function(x){x+10}
+.privateB   <- function(x){x+20}
+publicC     <- function(x){publicA(privateA(x))}
+privateC    <- function(x){.publicB(.privateB(x))}

divers/progClassic1.R

@@ -0,0 +1,6 @@
+######################################################
+###                  ProgClassic.R                 ###
+######################################################
+
+publicA     <- function(x){plot(x+1)}
+privateA    <- function(x){x+2}

divers/testsProgClassic1.R

@@ -0,0 +1,9 @@
+##########################################
+### Nom du programme : testClassique.R ###
+##########################################
+load("../data/dataAges.rda")
+source("../R/progClassic.R")
+
+publicA(1)
+privateA(2)
+

main.R

@@ -0,0 +1,5 @@
+##########################################
+###      Nom du programme : main.R     ###
+##########################################
+source("../testsDev/testsProgClassic.R")
+

man/dataAges.Rd

@@ -35,4 +35,6 @@ str(dataAges)
 }
 
 \keyword{datasets}
+\keyword{documentation}
+
 

man/packClassic-package.Rd

@@ -16,8 +16,8 @@
   \tabular{ll}{
     Package: \tab packClassic\cr
     Type: \tab Package\cr
-    Version: \tab 0.5.1\cr
-    Date: \tab 2009-05-23\cr
+    Version: \tab 0.5.2\cr
+    Date: \tab 2009-10-15\cr
     License: \tab GPL(>=2.0)\cr
     LazyLoad: \tab yes\cr
   }
@@ -44,4 +44,6 @@ publicC(3)
 }
 
 \keyword{package}
+\keyword{documentation}
+
 

tests/testsProgClassicRCoreTeam.R

@@ -0,0 +1,10 @@
+##########################################
+### Nom du programme : testClassique.R ###
+##########################################
+library(packClassic)
+data(dataAges)
+
+publicA(1)
+.publicB(3)
+publicC(5)
+publicC(dataAges$age)

testsDev/testsProgClassic.R

@@ -1,12 +1,12 @@
 #################################################################
-###testProgClassique.R###
+###                    testProgClassique.R                    ###
 #################################################################
 load("../data/dataAges.rda")
 source("../R/progClassic.R")
-print(publicA(1))
-(privateA(2))
-(.publicB(3))
-(.privateB(4))
-(publicC(5))
-(publicC(dataAges$age))
-(privateC(6))
+publicA(1)
+privateA(2)
+.publicB(3)
+.privateB(4)
+publicC(5)
+publicC(dataAges$age)
+privateC(6)