tests/testthat/test_xutils.R

library(xutils)

test_that("symbols decoded correctly", {
  expect_equal(html_decode(c("abcd", "&amp; &apos; &gt;", "&amp;", "&euro; &lt;")), c("abcd", "& ' >", "&" , "€ <"))
})

Try the xutils package in your browser

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

xutils documentation built on Sept. 7, 2021, 1:07 a.m.