Nothing
Dates3to1 <- function(data, YMD=c('Year', 'Month', 'Day')){
##
## 1. dateCols
##
dC <- dateCols(data, YMD)
##
## 2. drop found
##
dC. <- unlist(dC)
if(length(dC.)<1){
Dat <- data
} else {
Dat0 <- data[-dC.]
nC <- length(dC)
Dates <- vector(mode='list', nC)
names(Dates) <- names(dC)
for(i in seq(length=nC)){
dCi <- dC[[i]]
if(length(dCi)>0){
dati <- data[dCi]
Dates[[i]] <- Date3to1(dati)
}
}
Dnull <- sapply(Dates, is.null)
Dat <- cbind(Dat0, as.data.frame(Dates[!Dnull, drop=FALSE]))
}
##
## 3. Done
##
Dat
}
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.