#'
#' @title as_char_time
#' @description convert time values to character strings
#' @details takes a vector of times, and converts to character vector
#'
#' @param x time vector eg: integer, times, or ITime classes
#'
#' @export
#'
as_char_time <- function( x ) {
if( class( x ) == "times" ) {
x <- as.integer( round( x * 86400 ) )
} else if( !is.integer( x ) ) {
x <- as.integer( x )
}
.Call('rcsv_asCharTime', PACKAGE = 'rcsv', x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.