### R code from vignette source 'createReposHtml.Rnw'

###################################################
### code chunk number 1: createReposHtml.Rnw:41-42
###################################################
library("biocViews")


###################################################
### code chunk number 2: params
###################################################
reposRoot <- "path/to/reposRoot"
## The names are essential
contribPaths <- c(source="src/contrib",
                  win.binary="bin/windows/contrib/3.4",
                  `mac.binary.el-capitan`="bin/macosx/el-capitan/contrib/3.4")


###################################################
### code chunk number 3: extractVigs (eval = FALSE)
###################################################
## extractVignettes(reposRoot, contribPaths["source"])


###################################################
### code chunk number 4: controlFiles (eval = FALSE)
###################################################
## genReposControlFiles(reposRoot, contribPaths)


###################################################
### code chunk number 5: exampleOfHtmlDesign (eval = FALSE)
###################################################
## ## 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))
##