library(sf)
library(dplyr)
sgg.sf <- read_sf(dsn = "data-raw", layer = "SG_2015")
sgg.sf <- sgg.sf %>% select(sg_code, geometry)
usethis::use_data(sgg.sf)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.