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 ")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.