tests/testthat/test-get_dictionary.R

test_that("Dictionary retrieved", {

  df1 <- get_dictionary("nrc")

  df2 <- get_dictionary("afinn")

  df3 <- get_dictionary("bing")

  expect_gt(nrow(df1), 0)

  expect_gt(nrow(df2), 0)

  expect_gt(nrow(df3), 0)
})
CDU-data-science-team/experienceAnalysis documentation built on Dec. 17, 2021, 12:53 p.m.