R/timeseries-coercion.R

In 52North/sensorweb4R: An R client for the 52North Sensor Web Client API

#' @include class-tvp.R
#' @include class-timeseries.R

#' @export
#' @import zoo
as.zoo.TVP <- function(x, ...) {
   zoo::zoo(value(x), order.by = time(x))
}

#' @export
#' @import xts
as.xts.TVP <- function(x, ...) {
    xts::xts(value(x), order.by = time(x))
}

#' @export
as.ts.TVP <- function(x, ...) {
    as.ts(as.zoo.TVP(x, ...))
}

#' @export
#' @import zoo
as.zoo.Timeseries <- function(x, ...) {
   lapply(getData(x), as.zoo)
}

#' @export
#' @import xts
as.xts.Timeseries <- function(x, ...) {
    lapply(getData(x), as.xts)
}

#' @export
#' @import stats
as.ts.Timeseries <- function(x, ...) {
    lapply(getData(x), as.ts)
}