tests/testthat/test-replace_emoticon.R

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 ")

})
trinker/textmod documentation built on July 26, 2018, 6:33 a.m.