Nothing
context("make_hyperlink testing")
test_that("hyperlink is created", {
mylinks <- c('www.abc.com', 'www.bca.com', 'https://www.def.com')
mymessages <- c('abc', 'bca', 'def')
#no tableHTML
expect_true(all(grepl('<a href', make_hyperlink(mylinks))))
#check css list has same lengths
expect_true(all(grepl('<a href', make_hyperlink(mylinks, mymessages))))
})
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.