1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
library("R.rsp")
rcat("A random integer in [1,100]: <%=sample(1:100, size=1)%>\n")
# Passing arguments
rcat("A random integer in [1,<%=K%>]: <%=sample(1:K, size=1)%>\n", args=list(K=50))
text <- 'The <%=n <- length(letters)%> letters in the English alphabet are:
<% for (i in 1:n) { %>
<%=letters[i]%>/<%=LETTERS[i]%><%=if(i < n) ", "-%>
<% } %>.\n'
rcat(text)
# Informative syntax error messages
text <- '<%={
10 print "Hello world!"
20 goto 10
}%>\n'
tryCatch({ rcat(text) }, error=function(ex) cat(ex$message))
rcat("A random integer in [1,100]: <%=sample(1:100, size=1)%>\n", verbose = TRUE)
|
