require(rangeMapper)
wd = setwd(tempdir())
r = readOGR(system.file(package = "rangeMapper", "extdata", "wrens", "vector_combined"), "wrens", verbose = FALSE)
dbcon = rangeMap.start(file = "wrens.sqlite", overwrite = TRUE, dir = tempdir() )
global.bbox.save(con = dbcon, bbox = r)
gridSize.save(dbcon)
canvas.save(dbcon)
processRanges(spdf = r, con = dbcon, ID = "sci_name" )
# Upload BIO tables
data(wrens)
Troglodytes = wrens[grep("Troglodytes", wrens$sci_name), c(2, 5)]
bio.save(con = dbcon, loc = Troglodytes, ID = "sci_name")
#wrensPath = system.file(package = "rangeMapper", "data", "wrens.csv")
#bio.save(con = dbcon, loc = wrensPath, ID = "sci_name")
#bio.merge(dbcon, "wrensNew")
#metadata2bio(dbcon)
summary(rangeMap("wrens.sqlite"))$BIO_tables
setwd(wd)
Run the code above in your browser using DataLab