R/json_to_ts.R

In KOF-ch/kofdata: Get Data from the 'KOF Datenservice' API

#' @importFrom xts xts
#' @import zoo
#' @importFrom utils browseURL
#' @importFrom stats as.ts end frequency start
.json_to_ts <- function(json_data) {
  xt <- na.trim(xts(json_data$value, order.by = as.yearmon(json_data$date)))

  if(length(xt) == 0) return(NULL)

  if(frequency(xt) < Inf) {
    as.ts(xt, start = start(xt), end = end(xt))
  } else {
    na.trim(xts(json_data$value, order.by = as.Date(json_data$date)))
  }
}