# NOT RUN {
# load example data
testData <- january2018
# identify missing x and y coordinates
testData <- cs_missingXY(testData, varX = x_coord, varY = y_coord, newVar = missingXY)
# subset to remove missing data
testData <- dplyr::filter(testData, missingXY == FALSE)
# project data
testData_sf <- cs_projectXY(testData, varX = x_coord, varY = y_coord)
# project data and transform to new CRS
testData_sf <- cs_projectXY(testData, varX = x_coord, varY = y_coord, crs = 4269)
# }
Run the code above in your browser using DataLab