Nothing
context("Checking replace_emoticon")
library(lexicon)
test_that("replace_emoticon converts emoticons to words",{
x <- lexicon::hash_emoticons[[1]][16]
expect_equal(replace_emoticon(x), " devilish ")
})
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.