Dear Ian,
yes you are right. They changed the oauth protocol. You might want to try this:
This generates the key should you need one.
Run["~/Desktop/getNetatmokeyblog.sh > ~/Desktop/keys.txt"];
keysfile = Import["~/Desktop/keys.txt"];
accesstoken = StringSplit[StringSplit[keysfile, "\":\""][[2]], "\""][[1]];
Note that you need a terminal script. Here it is:
curl -X POST -d "grant_type=password&client_id=<clientidhere>&client_secret=<secrethere>&username=<usernamehere>&password=<passwordhere>scope=read_station" https://api.netatmo.com/oauth2/token
This needs to go into a script file - do not forget to substitute the respective parts including the "< >". I use OSX so it goes in an sh file and I need to make that executable. I changed to a script version, because I use this in public lectures and was not too happy to put my password and id directly on the slides. Of course you can execute that command "by hand" and use the accesstoken in the following. Here's how to get the data:
data = Import[
"https://api.netatmo.com/api/getpublicdata?access_token=" <>
accesstoken <>
"&lat_ne=59.91&lon_ne=13.75&lat_sw=40.42&lon_sw=-20.0&filter=\
True", "Text"];
tab = Quiet[
Select[Select[
Table[ToExpression /@
Flatten[StringSplit[#, "]"] & /@ StringSplit[#, "["] & /@
If[Length[
StringSplit[StringSplit[data, "place"][[k]], ","]] > 12,
Drop[StringSplit[StringSplit[data, "place"][[k]],
","], {5}],
StringSplit[StringSplit[data, "place"][[k]], ","]]
][[{2, 3, 7, 8, 15}]], {k, 2,
Length[StringSplit[data, "place"]]}],
Length[Cases[Flatten[#], $Failed]] == 0 & ], Length[#] == 5 &]];
This is how to plot it.
scaled = Rescale[tab[[All, 3]]]; GeoGraphics[
Table[{GeoStyling[Opacity[0.99],
RGBColor[scaled[[k]], 1 - scaled[[k]], 0]],
GeoDisk[{tab[[k, 2]], tab[[k, 1]]},
Quantity[20, "Kilometers"] ]}, {k, 1, Length[tab]}],
GeoBackground -> "Satellite", ImageSize -> Large]
This should work with their new system.
Cheers,
Marco
