Nothing
sqlite.path <- tempfile(fileext = "sqlite")
create_sqlite_db(sqlite.path)
database <- sqlite_get_db(sqlite.path)
# you can then pass 'sqlite.path' to you 'login_server' call
#
# login_server(db_method = "sqlite",
# sqlite_db = sqlite.path,
# ...)
#
print(database)
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.