test_that("right() works", { f <- kwb.utils:::right expect_error(f()) expect_identical(f("abcdef", 3), "def") })
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.