Nothing
test_that("joinf",{
joinf(
c(T,F,T,F,F),
data.frame(
i=factor(c("a","a","b","b","b")),
j=rep(17,5)
)
)->z
expect_equal(z,factor(sprintf("l%d",c(1:4,4))))
})
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.