Nothing
# Test arbitrary page titles.
library('SortableHTMLTables')
library('testthat')
sortable.html.table(iris,
output.file = 'iris.html',
output.directory = 'iris',
page.title = 'Iris Data Set')
text <- paste(readLines(file.path('iris', 'iris.html'), n = -1), collapse = '\n')
expect_that(text, matches('Iris Data Set'))
unlink('iris', recursive = TRUE)
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.