if (FALSE) {
# Request one MP by id
get_mp_pic(mpid = "AAMH", destfile = "~/Pictures/AAMH.jpeg", show_plot = TRUE, size = "stort")
# With good manners for multiple calls
lapply(c("AAMH", "CIH", "TKF"), function(x){
get_mp_pic(mpid = x, destfile = paste0("~/Pictures/", x),
show_plot = TRUE, size = "stort", good_manners = 2)
})
}
Run the code above in your browser using DataLab