How do I define an ojs object from R sf spatial data with Quarto?

[rbstrange]

Description

I am creating sf objects I would like to pass to observable so I can filter and interact with the maps and graphs simultanously from one dropdown input.

I can format the sf object in r to geojson using sf_geojson() and I can get the spatial information but I seem to loose the table attribute data. I cannot interact with the data itself.

Example

sf <- sf_geojson(geo)
ojs_define(geo_ojs = geo)

Map_Data = JSON.parse(geo_ojs )

viewof pickRegion = Inputs.select(
  Map_Data , {
    label: "Select Region",
    value: "1720",
    unique: true
  })

Plot.plot({
  projection: "albers-usa",
  marks: [Plot.geo(Map_Data, { 
  fill: d => d.Region == pickRegion ? "red" : "#ccc", 
  stroke: "white" 
  })
  ]
})

[jimjam-slam]

@rbstrange I think your first problem might be that you're passing geo to ojs_define instead of sf!

[jimjam-slam]

Give this a whirl, @rbstrange:

---
title: "GeoJSON test"
---

```{r}
library(sf)
library(geojsonsf)

geo <- st_read(system.file("shape/nc.shp", package = "sf"))
sf <- sf_geojson(geo)

# make sure you pass `sf` to `ojs_define`, not `geo`
ojs_define(geo_ojs = sf)
```

```{ojs}
Map_Data = JSON.parse(geo_ojs)

viewof pickRegion = Inputs.select(
  Map_Data.features , {
    label: "Select Region",
    value: "1720",
    unique: true,
    // use a `format` option to control what appears inside the menu
    format: d => d.properties.NAME
  })

// note that the value returned by pickRegion is the entire feature, not just
// the name used by `format`!
pickRegion
```

```{ojs}
Plot.plot({
  projection: "albers-usa",
  marks: [
    Plot.geo(Map_Data, { 
      // ... so we need to drill back down to the selected menu item's name
      // property again
      fill: d => d.properties.NAME == pickRegion.properties.NAME ?
        "red" : "#ccc",
      stroke: "white" 
    }),
  ]
})

```