schema: Acquire (and optionally display) plotly's plot schema
In moupegnoukevin/plotly: Create Interactive Web Graphics via 'plotly.js'

The schema contains valid attributes names, their value type, default values (if any), and min/max values (if applicable).

1	schema(jsonedit = interactive(), ...)

`jsonedit`	use `listviewer::jsonedit` to view the JSON?
`...`	other options passed onto `listviewer::jsonedit`

s <- schema()

# retrieve acceptable `layout.mapbox.style` values
if (!is.na(Sys.getenv('MAPBOX_TOKEN', NA))) {
  styles <- s$layout$layoutAttributes$mapbox$style$values
  subplot(
    plot_mapbox() %>% layout(mapbox = list(style = styles[3])),
    plot_mapbox() %>% layout(mapbox = list(style = styles[5]))
  )
}