if (FALSE) {
images <- read_exif(imagedir,
tags = c("filename", "directory", "DateTimeOriginal", "FileModifyDate"),
recursive = TRUE)
colnames(images)[1] <- "FilePath"
mdsession <- loadMDModel(mdmodel)
mdres <- classifyImagesBatchMD(mdsession, images$FilePath,
outfile = mdoutfile, checkpoint = 2500)
}
Run the code above in your browser using DataLab