.Rhistory

library(dplyr)
library(here)
library(dplyr)
df <- read_csv("spatialData_v4/STL_BARRIERS_All_04072018.csv")
library(readr)
df <- read_csv("spatialData_v4/STL_BARRIERS_All_04072018.csv")
df %>%
rename(long = X) %>%
rename(lat = Y) %>%
select(everything(), long, lat) -> df_clean
df %>%
rename(long = X) %>%
rename(lat = Y) %>%
select(BarrierID, Status, LastUpdate, Type, BarrierCk, CheckType,
BarrierCk2, CheckType2, Descrip, long, lat) -> df_clean
write_csv(df_clean, "spatialData_v4/STL_BARRIERS_All_04072018_clean.csv")
library(dplyr)
library(readr)
df <- read_csv("spatialData_v4/STL_BARRIERS_All_04072018.csv")
df %>%
rename(long = X) %>%
rename(lat = Y) %>%
select(BarrierID, Status, LastUpdate, Type, BarrierCk, CheckType,
BarrierCk2, CheckType2, Descrip, long, lat) -> allBarriers
write_csv(allBarriers, "spatialData_v4/STL_BARRIERS_All_04072018_clean.csv")
save(allBarriers, file = "spatialData_v4/allBarriers.rda")
library(dplyr)
library(readr)
df <- read_csv("spatialData_v5/STL_BARRIERS_All_09212018.csv")
df %>%
rename(long = X) %>%
rename(lat = Y) %>%
select(BarrierID, Status, LastUpdate, Type, BarrierCk, CheckType,
BarrierCk2, CheckType2, Descrip, long, lat) -> allBarriers
df <- read_csv("spatialData_v5/STL_BARRIERS_All_09212018.csv")
df %>%
rename(long = X) %>%
rename(lat = Y) %>%
select(BarrierID, Status, LastUpdate, Type, BarrierCk, CheckType,
BarrierCk2, CheckType2, Descrip, long, lat) -> allBarriers
write_csv(allBarriers, "spatialData_v5/STL_BARRIERS_All_09212018_clean.csv")
save(allBarriers, file = "spatialData_v5/allBarriers.rda")
library(dplyr)
library(readr)
df <- read_csv("spatialData_v5/STL_BARRIERS_All_09212018.csv")
df %>%
rename(long = X) %>%
rename(lat = Y) %>%
select(BarrierID, Status, LastUpdate, Type, BarrierCk, CheckType,
BarrierCk2, CheckType2, Descrip, long, lat) -> allBarriers
write_csv(allBarriers, "spatialData_v5/STL_BARRIERS_All_09212018_clean.csv")
save(allBarriers, file = "spatialData_v5/allBarriers.rda")