#dayOfWeek
#
#
#
dayOfWeek <- function(dataFile,dateColumn,newColumn,...) {
dataFile[newColumn] <- weekdays(as.Date(substr(dataFile[dateColumn],1,10)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.