twsDisconnect <- function(twsconn) {
if(!is.twsConnection(twsconn))
stop("not a 'tws' connection")
close(twsconn)
}
close.twsConnection <- function(con, ...)
{
close(con[[1]])
}
close.twsconn <- function(con, ...)
{
con$connected <- FALSE
close(con$conn)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.