In[]:=
stateList=EntityList@EntityClass["AdministrativeDivision","AllUSStatesAndTerritories"];InputForm[First@stateList]stateListText=Map[#[[2,1]]&,stateList];state[text_]:=Entity["AdministrativeDivision",{text,"UnitedStates"}]countyList[stateText_]:=EntityValue[state[stateText],"Subdivisions"];countyListText[stateText_]:=Map[#[[2,1]]&,countyList[stateText]]county[countyText_,stateText_]:=Entity["AdministrativeDivision",{countyText,stateText,"UnitedStates"}]
Out[]//InputForm=
Entity["AdministrativeDivision", {"Alabama", "UnitedStates"}]
In[]:=
stateQ[stateText_]:=MemberQ[stateListText,stateText]countyQ[countyText_,stateText_]:=If[stateQ[stateText],MemberQ[countyListText[stateText],countyText],False]cityQ[countyText_,stateText_]:=If[countyQ[countyText,stateText],!MissingQ[county[countyText,stateText]["CapitalCity"]],False]graphicList[stateText_,countyText_]:=Join[{If[stateQ[stateText],Polygon[state[stateText],Nothing]],If[countyQ[countyText,stateText],Polygon[county[countyText,stateText]],Nothing]},If[cityQ[countyText,stateText],{GeoMarker[county[countyText,stateText]["CapitalCity"]],Inset[Style[county[countyText,stateText]["CapitalCity"]["Name"],Bold,12,Black],GeoPosition[county[countyText,stateText]["CapitalCity"]["Coordinates"]],{0,-5}]},{}]]
In[]:=
prevCell=Rasterize[PreviousCell[]];nextCell=Rasterize[NextCell[]];prevCell=ImageResize[prevCell,First@ImageDimensions[nextCell]];ImageAssemble[{{prevCell},{nextCell}}]
Out[]=
In[]:=
Manipulate[Quiet[GeoGraphics[graphicList[stateID,countyID],GeoRange->state[stateID],GeoBackground->"StreetMapNoLabels"]],{{stateID,"Illinois"},stateListText},{{countyID,First@countyListText["Illinois"]},countyListText[stateID]},ControlType{PopupMenu,PopupMenu}]CloudDeploy[%,"CountyMaps.html",Permissions->"Public"]
Out[]=
Out[]=
In[]:=
CloudDeploy[EvaluationNotebook[],"CountyMapsNotebook.nb",Permissions->"Public"]