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