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 Nov. 3, 2021, 7:20 p.m.