fromSASDate <- function( sDate )
{
sasBase <- as.Date(strptime("01/01/1960 0:00:00", "%m/%d/%Y %H:%M:%S", tz="GMT")) # days
sasBase + sDate
}
fromSASDateTime <- function( sDateTime )
{
sasBaseSeconds <- as.numeric(ISOdatetime(1960,1,1,0,0,0) - 0)
retval <- sDateTime + sasBaseSeconds
class(retval) <- c("POSIXt","POSIXct")
retval
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.