Nothing
sysinfo<-function()
{
A = .Machine
B = .Platform
message(paste(sep=" ", "Platform=", B$OS.type))
message(paste(sep=" ", "Endian=", B$endian))
message(paste(sep=" ", "Size of LONG=", A$sizeof.long))
invisible(list(A=A, B=B))
}
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.