Nothing
cmc_as_year <-
function (x,selectday)
{ # Decimal year
if (is.character(x)) x<- as.numeric(x)
if (!is.numeric(x))
{ print ("WARNING in cmc.as.Date: x is not numeric")
if (is.character(x)) x <- as.numeric(x) else print ("ERROR in cmc.as.Date: x not numeric and not character.")
}
if (missing(selectday)) selectday <- 1
d <- cmc_as_Date(x,selectday) # d is character vector
year <- Date_as_year (d,format.in="%Y-%m-%d")
return (year)
}
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.