Nothing
library("R.rsp")
x <- rstring("A random integer in [1,100]: <%=sample(1:100, size=1)%>\n")
cat(x)
# Passing arguments
x <- rstring("A random integer in [1,<%=K%>]: <%=sample(1:K, size=1)%>\n", args=list(K=50))
cat(x)
x <- rstring("A random integer in [1,<%=K%>]: <%=sample(1:K, size=1)%>\n", args=list(K=50), verbose = TRUE)
cat(x)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.