Manipulate[Column[{DateListPlot[CountryData[n,{"Population",{1990,2014}}],AxesLabel->Automatic],Propiedad[n,m]},Center],{{n,"CostaRica","Países"},Paises[],ControlType->PopupMenu},{{m,"Mapa","Propiedad del país"},{"Código", "Capital","Bandera","Área","Mapa","Regiones"},ControlType->PopupMenu},Alignment->Center,Initialization:>(L=CountryData[];Paises[]:=Module[{Lista={}},For[i=1,i≤Length[L],Lista=Append[Lista,ToString[L[[i,2]]]];i++];Lista=Union[Lista,{"World"}];Lista];Propiedad[n_,m_]:=Module[{},Switch[m,"Código",CountryData[n,"CallingCode"],"Capital",CountryData[n,"CapitalCity"],"Bandera",CountryData[n,"Flag"],"Área",CountryData[n,"Area"],"Mapa",CountryData[n,"Shape"],"Regiones",CountryData[n,"Regions"]]])]

Autores: Juan Félix Ávila Herrera y Enrique Vílchez Quesada, Escuela de Informática, Universidad Nacional de Costa Rica,  .