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, gridSize = 2)
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")
summary(rangeMap("wrens.sqlite"))$BIO_tables
setwd(wd)
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, gridSize = 2)
canvas.save(dbcon)
processRanges(spdf = r, con = dbcon, ID = "sci_name", metadata = rangeTraits() )
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"))
setwd(wd)
Run the code above in your browser using DataLab