R/chart.TimeSeries.googlevis.R

In braverock/PerformanceAnalytics: Econometric Tools for Performance and Risk Analysis

#' @rdname chart.TimeSeries
#' 

chart.TimeSeries.googlevis <-
  function(R,
           xlab,ylab,
           main){
    y = data.frame(date=index(R),coredata(R))
    
    plot <- googleVis::gvisLineChart(y,
                                     options=list(
                                     gvis.editor="Edit",
                                     xvar=xlab,
                                     yvar=ylab,
                                     title=main)
    )
    
    return(plot)
  }