Nothing
library(tinytest)
z <- c(intToUtf8(1:128), NA, "a", "", strrep(letters, 32000))
expect_equal(toupper_basic(z), toupper(z))
expect_warning(toupper_basic(strrep("a", 33e3)))
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.