# NOT RUN {
# use function records to download records; then use one of the IDs:
spec.dist <- symbiota(taxon = "Amanita muscaria", db = "mycoportal", wait = 4)
pic <- details(spec.dist, id = 2136920)
# Look at one of the images in more detail
print(image_read(pic$urls[1])) # a rather orangeish specimen
library(magick)
par(mfrow = c(1,3))
plot(image_read(pic$urls[1]))
plot(image_read(pic$urls[2]))
plot(image_read(pic$urls[3]))
# Look at meta data
pic$meta
# }
Run the code above in your browser using DataLab