Nothing
library(testthat)
library(magrittr)
library(operator.tools)
context("fun2name")
test_that( 'fun2name', {
fun2name( ls ) %>% expect_equal( 'ls' )
fun2name( `%in%` ) %>% expect_equal( '%in%' )
})
context("name2fun")
test_that( 'name2fun', {
name2fun( 'ls' ) %>% expect_identical( ls )
name2fun( '%in%' ) %>% expect_identical( `%in%` )
})
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.