# NOT RUN {
library(EBImage)
# Simple examples
query <- "persian cat"
CatImg <- GoogleImage2array(query)
#show images
display.array(CatImg)
query <- "Shiba inu"
DogImg <- GoogleImage2array(query)
#show images
display.array(DogImg)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab