What does it mean to make a fairly accurate thumbnail?
deck = URLExecute[
"http://deckofcardsapi.com/api/deck/new/shuffle/", {"deck_count" ->
1}];
cards = URLExecute[
URLBuild@{"http://deckofcardsapi.com/api/deck",
Lookup[deck, "deck_id"], "draw/"}, {"count" -> 4}];
exampleNb =
Thumbnail /@
URLExecute@Cases[cards, Rule["png", url_] -> url, Infinity]
This is my favorite part of creating thumbnails, it's the compression after upload and replacing of the original image for which we need to watch for storage upload to trigger our functions and create the thumbnail, agreed? Making thumbnails accessible through the cells in a Wolfram Notebook.