Nothing
if (!is.null(settings))
op$setPrintSettings(settings)
if (!is.null(page_setup))
op$setDefaultPageSetup(page_setup)
gSignalConnect(op, "begin-print", begin_print)
gSignalConnect(op, "draw-page", draw_page)
res <- op$run("print-dialog", parent)
if (res[[1]] == "error") {
error_dialog = gtkMessageDialog(parent, "destroy-with-parent", "error",
"close", "Error printing file: ", res$error$message)
gSignalConnect(error_dialog, "response", gtkWidgetDestroy)
error_dialog$show()
} else if (res[[1]] == "apply")
settings = op$getPrintSettings()
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.