Random Painting

In[]:=
Manipulate​​Module{painting,paintings=paintingdata},​​painting=QuietRandomChoiceSelectpaintings,​​DateObject[{year}]≤#
completion date
<DateObject[{year+100}]&;​​IfLength[painting]==4,Columnpainting
image
,Stylepainting
name
,"Subtitle",EntityValuepainting
artist
,"Name"/._Missing"Anon.",painting
completion date
["Year"],AlignmentCenter,"No paintings",​​{{year,1500,"Century:"},{1500,1600,1700,1800,1900,2000},ControlTypeSetterBar},ContinuousActionFalse,AlignmentCenter,ContentSize{500,400},​​Initializationpaintingdata=DeleteMissingEntityValueRandomEntity
painting
ARTWORKS
,50,
image
,
name
,
artist
,
completion date
,"Association",1,2​​​​
Out[]=
​
Century:
1500
1600
1700
1800
1900
2000
Sacrifice of Isaac
{Michelangelo Merisi da Caravaggio}
1603