###################################################
### chunk number 1: 
###################################################
#line 42 "vignettes/biocViews/inst/doc/createReposHtml.Rnw"
library("biocViews")


###################################################
### chunk number 2: params
###################################################
#line 79 "vignettes/biocViews/inst/doc/createReposHtml.Rnw"
reposRoot <- "path/to/reposRoot"
## The names are essential
contribPaths <- c(source="src/contrib",
                  win.binary="bin/windows/contrib/2.6",
                  win64.binary="bin/windows64/contrib/2.6",
                  mac.binary.leopard="bin/macosx/leopard/contrib/2.6")


###################################################
### chunk number 3: extractVigs eval=FALSE
###################################################
## #line 93 "vignettes/biocViews/inst/doc/createReposHtml.Rnw"
## extractVignettes(reposRoot, contribPaths["source"])


###################################################
### chunk number 4: controlFiles eval=FALSE
###################################################
## #line 103 "vignettes/biocViews/inst/doc/createReposHtml.Rnw"
## genReposControlFiles(reposRoot, contribPaths)


###################################################
### chunk number 5: exampleOfHtmlDesign eval=FALSE
###################################################
## #line 163 "vignettes/biocViews/inst/doc/createReposHtml.Rnw"
## ## Define classes like this for each logical document chunk
## setClass("pdAuthorMaintainerInfo", contains="PackageDetail")
## setClass("pdVignetteInfo", contains="PackageDetail")
## 
## ## Then define a htmlValue method
## setMethod("htmlValue", signature(object="pdDescriptionInfo"),
##           function(object) {
##               node <- xmlNode("p", cleanText(object@Description),
##                               attrs=c(class="description"))
##               node
##           })
## 
## ## Then you can make use of all this...
## ## Assume object contains a PackageDetail instance
## authorInfo <- as(object, "pdAuthorMaintainerInfo")
## dom$addNode(htmlValue(authorInfo))
##