# NOT RUN {
library(EBImage)
# Simple examples
query <- "persian cat"
CatImg <- GoogleImage2array(query)
#show info
str(CatImg)
query <- "Shiba inu"
DogImg <- GoogleImage2array(query)
#show info
str(DogImg)
#Bind arrays
ImgDat <- EBImage::abind(CatImg$array, DogImg$array, along=1)
#show info
str(ImgDat)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab