R/calendarts.R

In rjd3toolkit: Utility Functions Around 'JDemetra+ 3.0'

#' @title Create Java CalendarTimeSeries
#'
#' @param calendarobs list.
#'
#' @export
#'
#' @returns a Java object
#'
#' @examplesIf current_java_version >= minimal_java_version
#' # example code
#' obs <- list(
#'     list(start = as.Date("1980-01-01"), end = as.Date("1999-12-31"), value = 2000),
#'     list(start = as.Date("2000-01-01"), end = as.Date("2010-01-01"), value = 1000)
#' )
#' jobj <- r2jd_calendarts(obs)
r2jd_calendarts <- function(calendarobs) {
    if (is.null(calendarobs) || !is.list(calendarobs)) {
        return(NULL)
    }
    starts <- sapply(calendarobs, function(z) {
        as.character(z$start)
    })
    ends <- sapply(calendarobs, function(z) {
        as.character(z$end)
    })
    values <- sapply(calendarobs, function(z) {
        as.numeric(z$value)
    })
    jts <- .jcall(
        "jdplus/toolkit/base/r/timeseries/TsUtility", "Ljdplus/toolkit/base/api/timeseries/CalendarTimeSeries;", "of",
        .jarray(starts, "Ljava/lang/String;"), .jarray(ends, "Ljava/lang/String;"), .jarray(values)
    )
    return(jts)
}