data-raw/data_creation.R

In choisy/compopsizeVN: Shape files of the communes of Vietnam with populations sizes

library(rgdal)
communes <- readOGR("data-raw", "Vietnam_pop_commune")
communes@data$PRO_NAME_E <- sub("Thua Thien Hue", "Thua Thien - Hue", communes@data$PRO_NAME_E)
communes@data$ADDRESS <- NULL
communes@data$Shape_Le_1 <- NULL
names(communes@data) <- c("commune_id", "district_id", "commune_vn", "commune",
                          "district_vn", "district", "province_vn", "province",
                          "province_id", "population", "area", "shape_length",
                          "shape_area")
communes@data <- communes@data[, c("commune_id", "district_id", "province_id",
                                   "commune", "district", "province",
                                   "commune_vn", "district_vn", "province_vn",
                                   "population", "area", "shape_length", "shape_area")]
rownames(communes@data) <- NULL
for(i in seq_along(communes@polygons))
  communes@polygons[[i]]@ID <- as.character(as.numeric(communes@polygons[[i]]@ID) + 1)


devtools::use_data(communes, overwrite = TRUE)