require(rangeMapper)
require(rgdal)
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")
setwd(wd)
## Not run:
# require(rangeMapper)
# require(rgdal)
# 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)
# setwd(wd)
#
# ## End(Not run)
Run the code above in your browser using DataLab