#' @export
dateIndexToInteger = function(index, data)
{
- index = index[1]
if (is.numeric(index))
index = as.integer(index)
if (is.integer(index))
- return (index)
+ return (index) #works on integers too: trust input
if (inherits(index, "Date") || is.character(index))
{
tryCatch(indexAsDate <- as.Date(index), error=function(e) stop("Unrecognized index format"))
#' @export
integerIndexToDate = function(index, data)
{
+ if (is(index,"Date"))
+ return (index) #works on dates too: trust input
index = index[1]
if (is.numeric(index))
index = as.integer(index)
if (!is.integer(index))
- stop("'index' should be an integer")
+ stop("'index' should be a date or integer")
as.Date( data$getTime(index)[1] )
}