Nothing
make.fdt.format.classes <- function (x,
right,
pattern)
{
tmp <- strsplit(x,
',')
res <- lapply(tmp,
function (.vals) {
.vals[1L] <- sprintf(ifelse(right,
paste('(',
pattern,
sep=''),
paste('[',
pattern,
sep='')),
as.numeric(substring(.vals[1L], 2)))
.vals[2L] <- sprintf(ifelse (right,
paste(pattern,
']',
sep=''),
paste(pattern,
')',
sep='')),
as.numeric(substring(.vals[2L], 1,
nchar(.vals[2L]) - 1)))
paste(.vals,
collapse=', ')
})
invisible(unlist(res))
}
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.