Nothing
## Test setup
if(FALSE) {
library("RUnit")
library("gdata")
}
num <- 1
cha <- "a"
fac <- factor("A")
tYear <- as.character(c(2006, 1995, 1005, 3067))
tMonth <- c("01", "04", "06", "12")
tDay <- c("01", "12", "22", "04")
tDate <- paste(paste(tYear, tMonth, tDay, sep="-"), "GMT")
tHour <- c("05", "16", "20", "03")
tMin <- c("16", "40", "06", "52")
tSec <- c("56", "34", "05", "15")
tTime <- paste(tHour, tMin, tSec, sep=":")
cDate <- as.Date(tDate)
cDatePOSIXct <- as.POSIXct(tDate)
cDatePOSIXlt <- as.POSIXlt(tDate)
test.getYear <- function()
{
checkException(getYear(x=num))
checkException(getYear(x=cha))
checkException(getYear(x=fac))
checkIdentical(getYear(x=cDate), tYear)
checkIdentical(getYear(x=cDatePOSIXct), tYear)
checkIdentical(getYear(x=cDatePOSIXlt), tYear)
}
test.getMonth <- function()
{
checkException(getMonth(x=num))
checkException(getMonth(x=cha))
checkException(getMonth(x=fac))
checkIdentical(getMonth(x=cDate), tMonth)
checkIdentical(getMonth(x=cDatePOSIXct), tMonth)
checkIdentical(getMonth(x=cDatePOSIXlt), tMonth)
}
test.getDay <- function()
{
checkException(getDay(x=num))
checkException(getDay(x=cha))
checkException(getDay(x=fac))
checkIdentical(getDay(x=cDate), tDay)
checkIdentical(getDay(x=cDatePOSIXct), tDay)
checkIdentical(getDay(x=cDatePOSIXlt), tDay)
}
test.getHour <- function()
{
checkException(getHour(x=num))
checkException(getHour(x=cha))
checkException(getHour(x=fac))
}
test.getMin <- function()
{
checkException(getMin(x=num))
checkException(getMin(x=cha))
checkException(getMin(x=fac))
}
test.getSec <- function()
{
checkException(getSec(x=num))
checkException(getSec(x=cha))
checkException(getSec(x=fac))
}
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.