tests/testthat/test-remove-punctuation.R
In kadekillary/killaryr: Personal R Repository
context("remove punctuation")
test_that("punctuation is removed", {
expect_equal(nchar(remove_punctuation("27483#&$(*@#&$dog#&*$@)")), nchar("dog"))
expect_match(remove_punctuation("27483#&$(*@#&$dog#&*$@)"), "dog")
expect_equal(nchar(remove_punctuation(">:?>cat#&*$@(3872`")), nchar("cat"))
expect_match(remove_punctuation(">:?>cat#&*$@(3872`"), "cat")
})
kadekillary/killaryr documentation built on Dec. 11, 2019, 3:36 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context("remove punctuation")
test_that("punctuation is removed", {
expect_equal(nchar(remove_punctuation("27483#&$(*@#&$dog#&*$@)")), nchar("dog"))
expect_match(remove_punctuation("27483#&$(*@#&$dog#&*$@)"), "dog")
expect_equal(nchar(remove_punctuation(">:?>cat#&*$@(3872`")), nchar("cat"))
expect_match(remove_punctuation(">:?>cat#&*$@(3872`"), "cat")
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.