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,
resultsfile=resultsfile,checkpoint = 2500)
mdresflat<-convertresults(mdres)
}
Run the code above in your browser using DataLab