Nothing
source("incl/start.R")
message("*** ChecksumFile / ChecksumFileSet")
## Empty / missing
dfZ <- ChecksumFile()
print(dfZ)
dfZ <- ChecksumFile(NA_character_)
print(dfZ)
## Example files
path <- system.file("exData", "dataSetA,original", package="R.filesets")
print(path)
## Setting up a file set
ds <- GenericDataFileSet$byPath(path)
print(ds)
## Create copy (so that we can write checksum files)
pathT <- tempdir()
dsC <- copyTo(ds, path=pathT, overwrite=TRUE)
print(dsC)
## Checksum set
dsCZ <- getChecksumFileSet(dsC)
print(dsCZ)
validate(dsCZ, verbose=TRUE)
print(readChecksums(dsCZ))
## Single checksum file
dfC <- dsC[[1]]
print(dfC)
dfCZ <- getChecksumFile(dfC)
print(dfCZ)
pathnameZZ <- sprintf("%s.md5", getPathname(dfCZ))
print(file.info(pathnameZZ))
stopifnot(!isFile(pathnameZZ))
## Calling getChecksum() on an *.md5 file should not
## create an *.md5.md5 file
print(getChecksum(dfCZ))
print(file.info(pathnameZZ))
stopifnot(!isFile(pathnameZZ))
message("*** ChecksumFile / ChecksumFileSet ... DONE")
source("incl/end.R")
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.