#' Getting cursor results from a series
#'
#' @param . the series object to calculate on
#' @name resultsmethods
NULL
#' @describeIn resultsmethods
#' get all cursor results, including those that are only used for internal calculations
#' @export
results_<-function(.){
.$sweeps<-calculate.cursors(.$sweeps)
.$sweeps$results2
}
#' @describeIn resultsmethods
#' get most cursor results, but omit those that are only used for internal calculations
#' @export
results<-function(.){
results<-.$results_()
if(!is.null(results))
#results<-select(results,-matches("\\.x"))
results
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.