#' Get OID date
#'
#' The initial 4 bytes of a MongoDB OID contain a timestamp value, representing
#' the ObjectId creation, measured in seconds since the Unix epoch.
#'
#' @export
#' @param oid string or raw value with document oid
#' @examples oid_to_timestamp('5349b4ddd2781d08c09890f3')
oid_to_timestamp <- function(oid){
if(is.raw(oid))
oid <- paste0(oid, collapse = "")
stopifnot("oid invalid" = nchar(oid) > 23)
val <- strtoi(paste0('0x', substring(oid, 1, 8)))
structure(val, class = c("POSIXct", "POSIXt"))
}
#' @useDynLib mongolite R_parse_hex_string
hex2bin <- function(string){
.Call(R_parse_hex_string, string)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.