tests/testthat/test-mute_tokens.R

In audubon: Japanese Text Processing Tools

### mute_tokens ----
test_that("mute_tokens works", {
  res <- prettify(head(hiroba, 32L), col_select = "POS1") |>
    mute_tokens(POS1 %in% c("\u52a9\u8a5e", "\u52a9\u52d5\u8a5e"))
  expect_snapshot_value(res, style = "json2", cran = FALSE)
})