# NOT RUN {
# 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)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab