forest <- rgdal::readOGR(system.file('raw_data', 'sosma_fragments',
package = 'CaatingaArthropods'), 'sosma')
lcover <- raster::raster(system.file('raw_data', 'landcover_sosma.tif',
package = 'CaatingaArthropods'))
lcoverkey <- data.frame(code = c(14, 20, 30, 40, 50, 60, 110, 120, 130,
150, 180, 200, 210),
type = c('Cropland', 'Mosaic mostly cropland',
'Mosaic mostly veg',
'Closed to open evergreen/semideciduous forest',
'Closed deciduous forest', 'Open deciduous forest',
'Mosaic mostly forest/shrubland',
'Mosaic mostly grassland', 'Closed to open shrubland',
'Sparse vegetation',
'Grassland or woody veg on regularely flooded soil',
'Bare area', 'Water bodies'),
stringsAsFactors = FALSE)
regions <- rgdal::readOGR(system.file('raw_data', 'caatinga_regions.kml',
package = 'CaatingaArthropods'), 'caatinga_regions')
regions@data <- data.frame(region = regions$Name)
regions$region <- gsub('_', '_0', regions$region)
roads <- rgdal::readOGR(system.file('raw_data', 'BRA_rds', package = 'CaatingaArthropods'),
'BRA_roads')
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.