knitr::opts_chunk$set(echo = TRUE)
grid_ID_2_polygon_masked <- raster::shapefile("inst/extdata/grid_id_2/grid_ID_2_polygon_masked.shp", )
ne_10m_admin_0_countries <- raster::shapefile("inst/extdata/0_basemap/ne_10m_admin_0_countries.shp")
grid_ID_9 <- sf::st_read("inst/extdata/grid_id_9/grid_ID_9.kml")
occs_unique <- readr::read_csv("inst/extdata/occs_unique/occs_unique.csv")
# occs_grid_id_9 <- readr::read_csv("inst/extdata/grid_id_9/0060040-210914110416597.csv")
crs_list_prj <- readRDS("data-raw/crs_list_prj.rds")
usethis::use_data(grid_ID_2_polygon_masked, ne_10m_admin_0_countries, grid_ID_9,occs_unique,crs_list_prj, internal = TRUE, overwrite = TRUE)
gridder:::occs_unique #or str (occs_unique)
usethis::use_data
and set internal= FALSEusethis::use_data(grid_ID_2_polygon_masked, ne_10m_admin_0_countries, grid_ID_9,occs_unique,crs_list_prj, internal = FALSE, overwrite = TRUE)
str (occs_unique) #or gridder::occs_unique
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.