R/extractchartdata.R

Defines functions ExtractChartData.default ExtractChartData

Documented in ExtractChartData

#' \code{ExtractChartData}
#'
#' @description Returns data which is appropriate for charting
#'   The exact form of the data depends on the object
#' @param x Object containing the data. This is usually the output of a regression or machine learning output
#' @export
ExtractChartData <- function(x)
{
    UseMethod("ExtractChartData")
}

#' @export
ExtractChartData.default <- function(x)
{
    # Outputs from CChart with append.data = TRUE can return data
    if (!is.null(attr(x, "ChartData")))
       return(attr(x, "ChartData"))
    else if (is.data.frame(x))
    {
        for (i in NCOL(x))
        {
            if (inherits(x[[i]], "difftime"))
                x[[i]] <- as.numeric(x[[i]])
        }
    }
    return(x)
}
Displayr/flipFormat documentation built on Feb. 26, 2024, 12:37 a.m.