zip <- list.files("../kokudosuuchi-metadata/data-raw/zip", pattern = "\\.zip$", full.names = TRUE)
d <- readKSJData(zip[4])
head(d[[10]])
translateKSJData(d)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.