EventsStatesPlotsList fails for empty sets

[maxitg]

"EventsStatesPlotsList" fails if empty set appears as an evolution state. This both occurs for the output empty state and the input empty state:

In[] := WolframModel[{{1, 2}} -> {}, {{1, 
   2}}, \[Infinity], "EventsStatesPlotsList"]

In[] := WolframModel[{} -> {{1, 2}}, {}, <|
  "MaxEvents" -> 1|>, "EventsStatesPlotsList"]

Expected behavior The output images (one of which is empty) should still be produced. No internal error messages should be generated.

Version (please complete the following information):

• OS: macOS 10.15.4 (19E266)
• Wolfram Language Version: "12.1.0 for Mac OS X x86 (64-bit) (March 20, 2020)"
• SetReplace git sha: 048311f4139cd7146e3879c710b02cc0c90a72e5

[maxitg]

Actually, the weed is at a lower level. WolframModelPlot treats {} as a list of zero graphs when parsing styles (but not when displaying the output) instead of a single empty hypergraph.