if (FALSE) {
modulePath <- file.path(tempdir(), "myModulePath")
dir.create(modulePath, recursive = TRUE, showWarnings = FALSE)
moduleName <- "myModule"
cat("hi", file = file.path(modulePath, moduleName)) # put something there for this example
## verify checksums of all data files
Checksums(modulePath, files = moduleName)
## write new CHECKSUMS.txt file
Checksums(files = moduleName, modulePath, write = TRUE)
}
Run the code above in your browser using DataLab