for debugging

citizenair/R/read-stations.R

@@ -34,6 +34,7 @@ read_stations <- function(x = sensorweb4R::as.Endpoint("http://geo.irceline.be/s
                     stringsAsFactors = FALSE)
   phe <- phe[order(phe$label, decreasing = FALSE), ]
 
+  ## Query http://geo.irceline.be/sos/api/v1/stations?expanded=true
   sta <- httr::GET(url = sprintf("%s/%s", url, "stations"), query = list(expanded="true"))
   sta <- httr::content(sta)
   sta <- lapply(sta, FUN=function(x){