#' Numeric Values
#'
#' Converts data to numeric values (support function).
#'
#'
#' @param x any vector that can be converted to numeric.
#' @param lev levels for character data that represent categories rather than
#' character representations of numeric values.
#' @return Numeric data represented by \code{x}.
#' @keywords dplot
#' @export numericData
numericData <- function(x, lev=NULL) {
# Coding History:
# 2011Jan08 DLLorenz Original coding.
# 2012Oct26 DLLorenz Fix to adjust POSIXt dates to local time
# 2014Jun26 DLLorenz Converted to roxygen
#
if(isDateLike(x)) {
x.Date <- as.Date(x)
x.temp <- as.POSIXlt(x)
attr(x.temp, "tzone") <- "GMT"
x.temp <- as.double(x.temp) - as.double(as.POSIXlt(x.Date))
x.temp <- x.temp / 86400
return(as.double(x.Date + x.temp))
}
if(isCharLike(x)) {
if(is.factor(x)) {
if(is.null(lev)) {
lev <- levels(x)
## print(lev)
}
x <- as.character(x)
}
else { # Must be character
if(is.null(lev))
return(as.double(x)) # if levels is null, treat as numeric
}
return(as.double(factor(x, levels=lev)))
}
## Anything else?
return(as.double(x))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.