Nothing
setTCPNoDelay <- function( socket, value=TRUE )
{
if(!any(c("socket","sockconn") %in% class(socket)))
stop("socket must be a socket object")
buffer <- paste(rep(" ", 1000), sep='', collapse='')
if("sockconn" %in% class(socket))
conn <- getConnection(socket[1])
else
conn <- socket
retval <- .C(C_setTCPNoDelay,
socket = as.integer(socket[1]),
flag = as.integer(value),
status = integer(1),
status.str = as.character(buffer),
status.len = as.integer(nchar(buffer)),
PACKAGE = "gtools"
)
if(retval$status != 0)
stop( retval$status.str )
else
invisible(retval$status.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.