reported crash in dependency package

[SymbolixAU]

ATFutures/geoplumber#57

This crashes

library(geoplumber)
uol <- rbind(uni_point, uni_poly)

This doesn't

library(sf) ## for subsetting
geojsonsf::sf_geojson( uol[1, "name"] )
geojsonsf::sf_geojson( uol[2, "name"] )
geojsonsf::sf_geojson( uni_point )
geojsonsf::sf_geojson( uni_poly )

---

Seems to be when all factor levels are the same

library(sf)
pt1 <- sf::st_point(c(0,0))
pt2 <- sf::st_point(c(1,1))

sfc <- sf::st_sfc( list(pt1, pt2) )
sf <- sf::st_sf( geometry = sfc )

sf$id <- factor(1)

---

This doesn't seem to be in jsonify; these are fine:

df <- data.frame(id = 1:2, val = c("a","a"))
jsonify::to_json( df )

jsonify::to_json( uol )

[SymbolixAU]

not closing until I know the reason it wasn't happening directly in jsonify

[SymbolixAU]

reason:

geojsonsf enters through

jsonify::writers::simple::write_value( writer, this_vec, i, -1, false, factors_as_string  );

But there was only one 'level', but it was asking to subset by more than one row, so it was getting a subset error, hence the crash.