library(qtutils)
## test utility
showAndClose <- function(x, wait = 3, title = deparse(substitute(x)))
{
x$show()
x$windowTitle <- as.character(title)
Sys.sleep(wait)
x$close()
invisible()
}
showAndClose(data.browse())
showAndClose(qdataview(iris))
## showAndClose(qpager())
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.