Nothing
describe("utils",{
it("generate a name from NULL",{
set.seed(1)
name <- random_name(NULL)
expect_equal(name, "dcmodifydb_856017")
})
it("generate a name from table_name",{
set.seed(1)
name <- random_name("table_name")
expect_equal(name, "table_name_856017")
})
})
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.