if (FALSE) {
require(rangeMapper)
con = rmap_connect()
wrens = read_wrens()
rmap_add_ranges(con, x = wrens, ID = 'sci_name')
rmap_prepare(con, 'hex', cellsize=500)
rmap_save_map(con)
x = rmap_to_sf(con)[, 'cell_id']
plot( st_thin(x,2) )
x = x[ ! x$cell_id %in% c(282,265) , ]
plot( st_thin(x,3) )
}
Run the code above in your browser using DataLab