1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
library("R.rsp")
library("R.utils") # Arguments
path <- system.file(package="R.rsp")
path <- file.path(path, "rsp_LoremIpsum")
pathname <- file.path(path, "LoremIpsum.asciidoc.Rnw")
print(pathname)
if (Sys.getenv("_R_CHECK_FULL_") != "") {
postprocess <- isCapableOf(R.rsp, "asciidoc")
outPath <- file.path("LoremIpsum", "asciidoc.Rnw")
pathnameR <- compileAsciiDocNoweb(pathname, outPath=outPath, postprocess=postprocess, verbose=-10)
print(pathnameR)
pathnameR <- Arguments$getReadablePathname(pathnameR)
}
|
