1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
library("R.rsp")
# RSP document
pathname <- system.file("exData", "slowcounting.txt.rsp", package="R.rsp")
# Compile to RSP source code script file
metadata <- list(foo="ABC", bar="123")
pathnameR <- rcode(file=pathname, metadata=metadata)
print(pathnameR)
# Assert correct filename
stopifnot(basename(pathnameR) == "slowcounting.txt.R")
# Compile to RSP source code object
metadata <- list(foo="ABC", bar="123")
code <- rcode(file=pathname, metadata=metadata, output=RspSourceCode())
print(code)
code <- rcode(file=pathname, metadata=metadata, output=RspSourceCode(), verbose = TRUE)
print(code)
|
