forked from sciserver/SciScript-R
-
Notifications
You must be signed in to change notification settings - Fork 0
/
CreateHtmlDocs.R
34 lines (28 loc) · 1.02 KB
/
CreateHtmlDocs.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#!/usr/bin/env Rscript
CreateHtmlDocs = function(packageName, helpDirectory = NULL) {
workingDirectory = getwd()
if(is.null(helpDirectory) || helpDirectory == ""){
system("mkdir htmlDocs")
helpDirectory = "./htmlDocs/" #system.file('htmlDocs', package = packageName)
}else{
system(paste("mkdir -p ",helpDirectory,sep=""))
}
setwd(helpDirectory)
htmldir = getwd()
links = tools::findHTMLlinks()
helpDoc = tools:::fetchRdDB(file.path(find.package(packageName),'help', packageName))
docNames = names(helpDoc)
for (doc in docNames)
{
tools::Rd2HTML(helpDoc[[doc]], paste(doc, 'html', sep = '.'), package = packageName, Links = links, no_links = is.null(links))
}
setwd(workingDirectory)
message("SciServer HTML documents created in ", htmldir)
}
commandLineArguments = commandArgs(trailingOnly=TRUE)
if (length(commandLineArguments) == 0) {
CreateHtmlDocs("SciServer")
}else{
dir = commandLineArguments[1]
CreateHtmlDocs("SciServer", dir)
}