data("finches")
finches$species <- system.file("extdata", finches$species,
package="rD3plot") # copy path to the species field
gallery <- gallery3(finches, image="species")
if (FALSE) {
plot(gallery)
}
Run the code above in your browser using DataLab