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 Dec. 10, 2018, 11:26 p.m.