# This script will copy a couple example photos from the input directory to the output directory

library(readr)

library(png)
library(jpeg)
  library(animation)  
train_photo_to_biz_ids <- read_csv("../input/train_photo_to_biz_ids.csv")
n<- nrow(train_photo_to_biz_ids)
print(n)
for (j in 1:20) {
    i<- runif(1,1,n)
    cmd <- paste0("cp ../input/train_photos/", 
    train_photo_to_biz_ids$photo_id[i],
    ".jpg .")
    cat("> ", cmd, "\n")
    system(cmd)
}
  n<- nrow(train_photo_to_biz_ids)


n<- nrow(train_photo_to_biz_ids)
saveGIF({ for (j in 1:100) grid::grid.raster(readJPEG (paste0("../input/train_photos/", train_photo_to_biz_ids$photo_id[runif(1,1,n)], ".jpg")))} , 
interval = .2, 
movie.name="test.gif",
 width = 100, height = 100)