add as_sp

citizenair/NAMESPACE

 # Generated by roxygen2: do not edit by hand
 
 S3method(as.data.frame,citizenair_userdata)
+export(as_sp)
 export(read_citizenair)
 export(read_stations)
 export(run_app)

citizenair/R/appdata.R

@@ -33,5 +33,20 @@ setMethod(f = "initialize",
           })
 
 
+#' @title TODO
+#' @description TODO
+#' @param object the object
+#' @export
+as_sp <- function(object){
+  if(inherits(object, "citizenair_stations")){
+    x <- as.data.frame(object$stations)
+    x <- sp::SpatialPointsDataFrame(coords = x[, c("lon", "lat")], 
+                                    data = x, proj4string = CRS("+proj=longlat +datum=WGS84 +ellps=WGS84 +towgs84=0,0,0"))  
+  }else{
+    stop("not implemented")
+  }
+  x
+}
+
 
 

citizenair/man/as_sp.Rd

+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/appdata.R
+\name{as_sp}
+\alias{as_sp}
+\title{TODO}
+\usage{
+as_sp(object)
+}
+\arguments{
+\item{object}{the object}
+}
+\description{
+TODO
+}