Remove tibble class, leave stringsAsFactors = FALSE (#4)

spatialanalysis · Oct 30, 2019 · 0ec9c3b · 0ec9c3b
1 parent b7db283
commit 0ec9c3b
Show file tree

Hide file tree

Showing 16 changed files with 24 additions and 8 deletions.
diff --git a/data-raw/clean-clev.R b/data-raw/clean-clev.R
@@ -1,6 +1,8 @@
 library(sf)
 library(usethis)
 
-clev_pts <- read_sf("data-raw/clev_sls_154_core.shp")
+clev_pts <- st_read("data-raw/clev_sls_154_core.shp",
+                    quiet = TRUE,
+                    stringsAsFactors = FALSE)
 
 usethis::use_data(clev_pts, overwrite = TRUE)
diff --git a/data-raw/clean-commareas.R b/data-raw/clean-commareas.R
@@ -1,6 +1,8 @@
 library(sf)
 library(usethis)
 
-chicago_comm <- read_sf("data-raw/chicagocomm.shp")
+chicago_comm <- st_read("data-raw/chicagocomm.shp",
+                        quiet = TRUE,
+                        stringsAsFactors = FALSE)
 
 usethis::use_data(chicago_comm, overwrite = TRUE)
diff --git a/data-raw/clean-commpop.R b/data-raw/clean-commpop.R
@@ -1,6 +1,8 @@
 library(sf)
 library(usethis)
 
-commpop <- read_sf("data-raw/commpop.shp")
+commpop <- st_read("data-raw/commpop.shp",
+                   quiet = TRUE,
+                   stringsAsFactors = FALSE)
 
 usethis::use_data(commpop, overwrite = TRUE)
diff --git a/data-raw/clean-guerry.R b/data-raw/clean-guerry.R
@@ -1,6 +1,8 @@
 library(sf)
 library(usethis)
 
-guerry <- read_sf("data-raw/guerry.shp")
+guerry <- st_read("data-raw/guerry.shp",
+                  quiet = TRUE,
+                  stringsAsFactors = FALSE)
 
 usethis::use_data(guerry, overwrite = TRUE)
diff --git a/data-raw/clean-ncovr.R b/data-raw/clean-ncovr.R
@@ -1,6 +1,8 @@
 library(sf)
 library(usethis)
 
-ncovr <- read_sf("data-raw/NAT.shp")
+ncovr <- st_read("data-raw/NAT.shp",
+                 quiet = TRUE,
+                 stringsAsFactors = FALSE)
 
 usethis::use_data(ncovr, overwrite = TRUE)
diff --git a/data-raw/clean-nyc-sf.R b/data-raw/clean-nyc-sf.R
@@ -1,7 +1,9 @@
 library(sf)
 library(usethis)
 
-nyc_sf <- read_sf("data-raw/nyc.shp")
+nyc_sf <- st_read("data-raw/nyc.shp",
+                  quiet = TRUE,
+                  stringsAsFactors = FALSE)
 nyc_sf <- lwgeom::st_make_valid(nyc_sf)
 
 usethis::use_data(nyc_sf, overwrite = TRUE)
diff --git a/data-raw/clean-ohio-lung.R b/data-raw/clean-ohio-lung.R
@@ -1,6 +1,8 @@
 library(sf)
 library(usethis)
 
-ohio_lung <- read_sf("data-raw/ohlung.geojson")
+ohio_lung <- st_read("data-raw/ohlung.geojson",
+                     quiet = TRUE,
+                     stringsAsFactors = FALSE)
 
 usethis::use_data(ohio_lung, overwrite = TRUE)
diff --git a/data-raw/clean-vehpts.R b/data-raw/clean-vehpts.R
@@ -1,6 +1,8 @@
 library(sf)
 library(usethis)
 
-vehicle_pts <- read_sf("data-raw/cleanvehpts.shp")
+vehicle_pts <- st_read("data-raw/cleanvehpts.shp",
+                       quiet = TRUE,
+                       stringsAsFactors = FALSE)
 
 usethis::use_data(vehicle_pts, overwrite = TRUE)
diff --git a/data/chicago_comm.rda b/data/chicago_comm.rda
diff --git a/data/clev_pts.rda b/data/clev_pts.rda
diff --git a/data/commpop.rda b/data/commpop.rda
diff --git a/data/guerry.rda b/data/guerry.rda
diff --git a/data/ncovr.rda b/data/ncovr.rda
diff --git a/data/nyc_sf.rda b/data/nyc_sf.rda
diff --git a/data/ohio_lung.rda b/data/ohio_lung.rda
diff --git a/data/vehicle_pts.rda b/data/vehicle_pts.rda