Nothing
dhc <-
function (xd, sep)
{
ifelse(missing(sep) == TRUE, sep <- ", ", NA)
if (isTRUE(length(xd) != 0L) == TRUE && isTRUE(is.na(xd)) ==
FALSE) {
Ltd <- FALSE
ifelse(isTRUE(is.list(xd)) == TRUE, Ltd <- TRUE, xd <- as.list(xd))
Xd <- list()
length(Xd) <- length(xd)
for (i in 1:length(xd)) {
if (isTRUE(length(xd[[i]]) != 0L) == TRUE) {
tmpd <- as.list(xd[[i]])
for (j in 1:length(xd[[i]])) Xd[[i]] <- append(Xd[[i]],
strsplit(tmpd[[j]], sep)[[1]])
}
}
attr(Xd, "names") <- attr(xd, "names")
ifelse(isTRUE(Ltd) == TRUE, return(Xd), return(unlist(Xd)))
}
else {
xd
}
}
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.