Nothing
local({
tt <- tktoplevel()
p1 <- with(mtcars,
l_plot(parent=tt, x=mpg, y=hp, color=gear, title="mtcars",
useLoonInspector=FALSE)
)
tkpack(p1, side="left", fill="both", expand=TRUE)
## Add a custom inspector (no layers)
f <- tkframe(tt)
lf <- tkwidget(f,"labelframe", text="Worldview")
wv <- l_worldview(parent=lf, activewidget=p1)
tkconfigure(paste(wv,".canvas", sep=""), width=50, height=160)
ai <- l_plot_inspector_analysis(parent=f, activewidget=p1)
tkpack(f, side="right", anchor="ne")
tkpack(lf, side="top", fill="x")
tkpack(wv, side="top", fill="x")
tkpack(ai, side="top", fill="x")
tktitle(tt) <- "Custom Loon Plot"
})
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.