A single point map fails

[Nowosad]

Relates to geocompx/geocompr#1148.

library(tmap)
library(sf)
null_island = st_point(c(0, 0))
null_island = st_sfc(null_island, crs = "EPSG:4326")
null_island = st_sf(name = "Null Island", geom = null_island)

# works
plot(null_island)

# does not work
tm_shape(null_island) +
  tm_symbols()
#> Error in wk_handle.wk_wkb(wkb, s2_geography_writer(oriented = oriented, : Loop 0 is not valid: Edge 0 is degenerate (duplicate vertex)

# does not work (more complex example)
tm_shape(null_island) +
  tm_graticules(labels.col = "gray40") +
  tm_text("name", size = 5, fontface = "italic") +
  tm_layout(bg.color = "lightblue") +
  tm_title("You are here:", color = "gray40")
#> Error in wk_handle.wk_wkb(wkb, s2_geography_writer(oriented = oriented, : Loop 0 is not valid: Edge 0 is degenerate (duplicate vertex)

[mtennekes]

Pls check. Was caused by area calculation of 'null' bounding box (#954)

[Nowosad]

Thanks @mtennekes