Small bug fix in ClipQuakes

KNMI · Feb 22, 2017 · 5454046 · 5454046
1 parent d31f426
commit 5454046
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -1,4 +1,4 @@
 ### Version 0.1.5.5
 
-- exporting ClipQuakes
+- exporting ClipQuakes (fixed small bug related to object class)
 - added StudyArea
diff --git a/R/ImportData.R b/R/ImportData.R
@@ -136,7 +136,7 @@ EarthquakesDownload <- function(type, area, period, call) {
 #' @export
 ClipQuakes <- function(quakes, area) {
  lat <- lon <- NULL
- points <- quakes[, list(lon, lat)]
+ points <- as.data.frame(quakes[, list(lon, lat)])
  points <- sp::SpatialPoints(points, CRS("+proj=longlat +datum=WGS84"))
  points <- sp::spTransform(points, area@proj4string)
  index <- which(!is.na(sp::over(points, area)))