Load needed broom library and suppress tidy warning.

diff --git a/WA_active_schools.R b/WA_active_schools.R
index 779249683540b607845fc964374d8f041a828b72..394fa831bce70794f1eceabb20f44dfb7b9394eb 100644 (file)
--- a/WA_active_schools.R
+++ b/WA_active_schools.R
@@ -2,13 +2,15 @@
 #install.packages("rgdal")
 library(rgdal)
 library(tidyverse)
 #install.packages("rgdal")
 library(rgdal)
 library(tidyverse)

+library(broom)

 #install.packages("OpenStreetMap")
 library(OpenStreetMap)
 library(viridis)
 
 # Read the shapefile obtained from WA opendata (SLIP)
 shape <- readOGR(dsn = "data/", layer = "CurrentActiveSchoolsSemester12017_PublicDET_014")
 #install.packages("OpenStreetMap")
 library(OpenStreetMap)
 library(viridis)
 
 # Read the shapefile obtained from WA opendata (SLIP)
 shape <- readOGR(dsn = "data/", layer = "CurrentActiveSchoolsSemester12017_PublicDET_014")

-shape.df <- tidy(shape)
+# Suppress warning about no method existing for SpatialPointsDataframe - TODO use library sf
+shape.df <- suppressWarnings(tidy(shape))

 shape.df$latitude <- as.numeric(as.character(shape.df$latitude))
 shape.df$longitude <- as.numeric(as.character(shape.df$longitude))
 shape.df$totalschoo <- as.numeric(as.character(shape.df$totalschoo))
 shape.df$latitude <- as.numeric(as.character(shape.df$latitude))
 shape.df$longitude <- as.numeric(as.character(shape.df$longitude))
 shape.df$totalschoo <- as.numeric(as.character(shape.df$totalschoo))