readKSJData()
is an utility to read data downloaded from 'Kokudo Suuchi' service.
readKSJData(x, encoding = "CP932")
x | A path to a ZIP file or to a directory that contains the extracted files. |
---|---|
encoding | Encoding of the data. |
if (FALSE) { # Download a ZIP file from kokudosuuchi website zip_file <- tempfile(fileext = ".zip") url <- "https://nlftp.mlit.go.jp/ksj/gml/data/W07/W07-09/W07-09_3641-jgd_GML.zip" download.file(url, zip_file) # Load all data as sf objects d <- readKSJData(zip_file) # Translate colnames and 'codelist' type columns translateKSJData(d) }