data("finches")
finches$species <- system.file("extdata", finches$species,
package="rD3plot") # copy path to the species field
gallery <- gallery_rd3(finches, image="species", main="Species in Galapagos Islands",
note="Data source: Sanderson (2000)")
gallery <- add_tutorial_rd3(gallery,
description="Here you can see different finches species in Galapagos islands.")
if (FALSE) {
plot(gallery)
}
Run the code above in your browser using DataLab