`print.twsConnection` <-
function(x,...) {
cat('<twsConnection,',x$clientId,' @ ',
as.character(x$connected.at),'>\n', sep="")
}
print.twsconn <- function(x,...) {
if( isOpen(x[[1]])) {
cat('<twsConnection,',x$clientId,' @ ',
as.character(x$connected.at),', nextId=',x$nextValidId,'>\n', sep="")
} else
cat('<twsConnection, CLOSED>\n')
}
`[[.twsconn` <- function(x, i, ...) {
if(i==1)
return(x$conn)
NULL
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.