In[]:=
ds=ResourceData["Epidemic Data for Novel Coronavirus 2019-nCoV from Wuhan, China"];
In[]:=
ts=ds[Select[#Country["Name"]==="China"&],<|"region"First@StringSplit[#AdministrativeDivision["Name"],", "],"cases"#ConfirmedCases["LastValue"]|>&];
In[]:=
cases=ts[ReverseSortBy[#cases&]]
Out[]=
In[]:=
Export["D:\\git\\wolfram-coronavirus\\docs\\cases.csv",cases,"TextDelimiters"""]
Out[]=
D:\git\wolfram-coronavirus\docs\cases.csv
In[]:=
ds
In[]:=
ts=ds[Select[(#Country["Name"]=!="China"&&Not[MissingQ[#Country]])&],<|"country"First@StringSplit[#Country["Name"],", "],"cases"#ConfirmedCases["LastValue"]|>&];
In[]:=
ts2=ts[GroupBy[#country&],<|"country"First[#]["country"],"cases"Total[Map[#["cases"]&,#]]|>&]
Out[]=
In[]:=
cases=ts2[ReverseSortBy[#cases&]]
Out[]=
In[]:=
Export["D:\\git\\wolfram-coronavirus\\docs\\cases-by-country.csv",c2,"TextDelimiters"""]
Out[]=
D:\git\wolfram-coronavirus\docs\cases-by-country.csv
In[]:=
c2=cases[Values]
Out[]=
In[]:=
ExportString[c2,"TextDelimiters"""]
In[]:=
ds[Select[#Country["Name"]==="Australia"&]]
Out[]=
