## Not run: # need internet connection
# suppressWarnings(gbk2g2(g2.coord = "gbk2g2.test"))
# res <- read.table("gbk2g2.test")
# head(res)
# stopifnot(nrow(res) == 892)
# ## End(Not run)
Run the code above in your browser using DataLab