Nothing
dat <- cbind( data.frame(car = row.names(mtcars), stringsAsFactors = FALSE), mtcars )
This is famous mtcars
dataset:
head(dat, n = 10)
This is famous iris
dataset:
head(iris)
This a flextable:
if(require("flextable")){ ft <- flextable(head(mtcars, n = 10)) ft <- fontsize(ft, size = 9, part = "all") ft <- compose(x = ft, j = "mpg", value = as_paragraph( value = lollipop(value = mpg, min = 0, max = 30, positivecol = "#DD2233", rangecol = "#DD2233") )) ft <- compose(x = ft, j = "drat", value = as_paragraph( value = minibar(value = drat, max = 6, barcol = "#DD3322") )) ft <- compose(x = ft, j = "qsec", value = as_paragraph( value = linerange(value = qsec) )) ft <- set_table_properties(ft, layout = "autofit") ft }
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.