Nothing
library(data.table)
DT <- data.table(xyz = 1:5,
abc = 1:5 + 0,
ab = as.raw(1:5),
cdf = letters[1:5])
expect_equal(select_which(DT, is.integer, .and.grep = "^a"),
DT[, .(xyz, abc, ab)])
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.