Nothing
test01 <- function() {
odd <- function(x) x %% 2 == 1
even <- function(x) x %% 2 == 0
actual <- as.list(ifilter(odd, 1:10))
expected <- as.list(Filter(odd, 1:10))
checkEquals(actual, expected)
actual <- as.list(ifilterfalse(odd, 1:10))
expected <- as.list(Filter(even, 1:10))
checkEquals(actual, expected)
}
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.