Checks whether or not a file is identical to the one used to create an object.
Usage
is_original(object, ...)
# S4 method for MCMC
is_original(object, file, download = FALSE)
# S4 method for PhasesMCMC
is_original(object, file, download = FALSE)
# S4 method for CumulativeEvents
is_original(object, file, download = FALSE)
# S4 method for ActivityEvents
is_original(object, file, download = FALSE)
# S4 method for OccurrenceEvents
is_original(object, file, download = FALSE)
# S4 method for RateOfChange
is_original(object, file, download = FALSE)
Value
A logical
: TRUE
if the files match, FALSE
otherwise.
See also
Other read methods:
coda
,
coerce()
,
read_bcal()
,
read_chronomodel
,
read_oxcal()
Examples
if (FALSE) {
## Import OxCal Output
path_output <- system.file("oxcal/ksarakil/MCMC_Sample.csv", package = "fasti")
url_output <- paste0("https://raw.githubusercontent.com/tesselle/fasti/master/",
"inst/oxcal/ksarakil/MCMC_Sample.csv")
oxcal <- read_oxcal(path_output)
## Check md5 sum
is_original(oxcal, path_output) # Same as local file? TRUE
is_original(oxcal, url_output, download = FALSE) # Same as remote file? FALSE
is_original(oxcal, url_output, download = TRUE) # Same as remote file? TRUE
}