Nothing
w <- gwindow("ghtml")
g <- ggroup(cont=w, horizontal=FALSE)
h1 <- ghtml("no markup", cont=g, fill="x")
h2 <- ghtml("<i>emphasize</i>", cont=g)
## from url
f <- get_tempfile(ext=".html")
cat("<i>this is in a file</i>", file=f)
h3 <- ghtml(f, cont=g, width=300)
## test
expect_equal(svalue(h1), "no markup")
expect_equal(svalue(h3), "<i>this is in a file</i>")
svalue(h2) <- "new text"
expect_equal(svalue(h2), "new text")
cat("<i>replace file text</i>", file=f)
svalue(h3) <- f
expect_equal(svalue(h3), "<i>replace file text</i>")
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.