### 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/4.0", mac.binary="bin/macosx/contrib/4.0") ################################################### ### 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)) ##