building an animation in R based on images from a folder
animationDraft.r
captures="\\\\raspberrypi\\hdd500gb\\surveillance\\captures"
cameras <- c('Poarta','Curte')
for(camera in cameras){
#print(camera)
#print(list.files())
cameraFolder<-paste(captures,camera,sep="\\")
print(cameraFolder)
cameraDays <- list.files(cameraFolder)
print(cameraDays)
for(cameraDay in cameraDays){
cameraImages<-list.files(paste(captures,camera,cameraDay,sep="\\"))
print(length(cameraImages))
firstHourImages<-(cameraImages[Vectorize(function(x){substr(x,8,11)<"0030"})(cameraImages)])
firstHourImages<-rapply(list(firstHourImages),function(x){magick::image_read(paste(captures,camera,cameraDay,x,sep="\\"))})
animation<-magick::image_animate(magick::image_join(firstHourImages))
magick::image_write(animation,paste("c:\\users\\dragosmateis\\desktop\\ccc",camera,cameraDay,sep="_"),format = )
#print(firstHourImages)
}
}