test_that("drop_null_geometries_works", {
poly_geojson <-   structure(
  '{"type":"FeatureCollection",
    "features":[{
    "type":"Feature",
    "geometry":{"type":"Point","coordinates":[1,1]},
    "properties":{"x":1}},{
    "type":"Feature",
    "geometry":{},
    "properties":{"x":2}}]}',
  class = c("geojson", "json")
)
expect_snapshot_value(drop_null_geometries(poly_geojson), style = "json2")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.