setServerLogLevel <- function(conn, logLevel=2)
{
if(!is.twsConnection(conn))
stop('twsConnection object required')
VERSION <- "1"
con <- conn[[1]]
writeBin(c(.twsOutgoingMSG$SET_SERVER_LOGLEVEL,
VERSION, as.character(logLevel)), con)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.