Nothing
test_that("util_html_attr_quote_escape escapes quotes properly", {
skip_on_cran()
input_string <- 'Hello "World"!'
expected_output <- 'Hello "World"!'
actual_output <- util_html_attr_quote_escape(input_string)
expect_equal(actual_output, expected_output)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.