Nothing
#' Convert an epoch in milliseconds into a date
#'
#' @param x A [character] or a [numeric] representing an epoch in milliseconds
#' @param timezone A [character] with the time zone used for the conversion
#'
#' @return A [POSIXct], the date corresponding to the epoch
#' @export
#'
#' @examples
#' epoch <- Date2EpochMilli(as.numeric(Sys.time()))
#' EpochMilli2Date(epoch)
#'
EpochMilli2Date <- function(x, timezone = "GMT") {
return(
as.POSIXct(as.numeric(x)/1000, tz = timezone, origin = "1970-01-01")
)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.