Nothing
#' @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)))
}
}
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.