ShapeファイルからGeoJSONに変換するサンプル

shp2geojson.R

library(rgdal)
library(sp)
library(maptools)

l <- read.csv("shapes.csv", header = TRUE, colClasses = c("character", "character", "character"))

P4S.latlon <- CRS("+proj=longlat +datum=WGS84")
for(i in 1:nrow(l)) {
  
  shp <- readShapePoly(paste0("shapes/", l$dir[i], "/", l$shape[i]) ,
                       verbose = TRUE, proj4string = P4S.latlon)

  # 不要な項目が多いので住所の文字列のみを選択
  shp <- shp[, c("KEN_NAME", "GST_NAME", "CSS_NAME", "MOJI")]

  # Why are you using SJIS? 案件
  shp$KEN_NAME <- iconv(shp$KEN_NAME, "CP932", "UTF8")
  shp$GST_NAME <- iconv(shp$GST_NAME, "CP932", "UTF8")
  shp$CSS_NAME <- iconv(shp$CSS_NAME, "CP932", "UTF8")
  shp$MOJI     <- iconv(shp$MOJI, "CP932", "UTF8")

  geojson_file <- paste0("geojson/", l$city_cd[i], ".json")
  writeOGR(shp, geojson_file, layer = "geojson", driver = "GeoJSON")
}