tests/testthat/test-remove.R

test_that("`str_remove_quoted()` works", {
  string <- "\"abc\"67a\'dk\'f"
  expect_equal(str_remove_quoted(string), "67af")
  expect_equal(str_remove_quoted(character()), character())
})

Try the strex package in your browser

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

strex documentation built on Nov. 2, 2023, 6:04 p.m.