tests/testthat/test-collapse_tokens.R

### collapse_tokens ----
test_that("collapse_tokens works", {
  res <- prettify(head(hiroba, 32L), col_select = "POS1") |>
    collapse_tokens(POS1 == "\u540d\u8a5e")
  expect_snapshot_value(res, style = "json2", cran = FALSE)
})

Try the audubon package in your browser

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

audubon documentation built on May 29, 2024, noon