data-raw/clean-kchomesale.R

In spatialanalysis/geodaData: Spatial Analysis Datasets for Teaching

library(sf)
library(usethis)

list<- as.list(c("data-raw/kc_house.shp", "data-raw/King_county_zip.shp"))

kchomesale <- lapply(list, function(x) st_read(x, quiet = TRUE,
                                               stringsAsFactors = FALSE))
names(kchomesale)<- c("kchomesales_points", "kc_zones")

kchomesale[[2]]["ZIPCODE"] <- list(NULL)

rm(list)

usethis::use_data(kchomesale, overwrite = TRUE)


# list2env(kchomesale, environment())