Nothing
test_that('delete space works',{
value <- " test_string"
extract_val <- unlist(strsplit(value, split = " "))
extract_val <- delete_space(extract_val)
expect_equal(extract_val, "test_string")
})
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.