Nothing
createFoo<-function(str) {
.Call("TESTCPP_newFoo", str, .closeFoo)
}
.closeFoo <- function(p) {
.Call("TESTCPP_closeFoo", p);
}
getStrFoo<-function(p) {
.Call("TESTCPP_getFoo", p)
}
setStrFoo<-function(p, str) {
invisible(.Call("TESTCPP_setFoo", p, str))
}
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.