Nothing
FindFormat <-
function(string,CurrentDate){
#' @export
#This function will find the formate of the date from user selection
Formats<-rbind('%Y-%m-%d','%m-%d-%Y','%d-%m-%Y','%Y/%m/%d','%m/%d/%Y','%d/%m/%Y',
'%Y-%b-%d','%b-%d-%Y','%d-%b-%Y')
pick<-which(CurrentDate==string) #Check for proper format
if (length(pick)>0){
return(Formats[pick, ])};
return(string);
}
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.