tests/testthat/test_charset_name.R

library(RcppCWB)

testthat::context("cl_charset_name")

test_that(
  "cl_charset_name",
  {
    charset <- cl_charset_name(
      corpus = "REUTERS",
      registry = get_tmp_registry()
    )
      
    expect_equal(charset, "latin1")
  }
)

Try the RcppCWB package in your browser

Any scripts or data that you put into this service are public.

RcppCWB documentation built on July 9, 2023, 7:40 p.m.