data-raw/generate_test_data.R

zip <- list.files("../kokudosuuchi-metadata/data-raw/zip", pattern = "\\.zip$", full.names = TRUE)

d <- readKSJData(zip[4])

head(d[[10]])
translateKSJData(d)
yutannihilation/kokudosuuchi documentation built on March 13, 2021, 7:41 a.m.