"Unordered" edge type in WolframModelPlot

[maxitg]

The problem

We need to be able to plot undirected hypergraphs. So, we need "Unordered" as a possible second argument to "WolframModelPlot".

Possible solution

UnorderedHypergraphPlot[h_, opts___] := 
 WolframModelPlot[h, opts, "ArrowheadLength" -> 0, 
  EdgeStyle -> <|{_, _, _ ..} -> Transparent|>, 
  "EdgePolygonStyle" -> <|{_, _, _ ..} -> 
     Directive[Hue[0.63, 0.66, 0.81], Opacity[0.1], 
      EdgeForm[Directive[Hue[0.63, 0.7, 0.5], Opacity[0.7]]]]|>]

In[] := UnorderedHypergraphPlot[{{20, 27, 28, 35, 36}, {20, 39, 42, 45}, {24, 31, 32, 35, 38, 43, 
  44}, {24, 25, 26}, {25, 27, 30, 39, 40}, {26, 29, 33, 43, 46}, {28, 
  29, 30}, {31, 34, 37, 41}, {32, 33, 34}, {36, 37, 38}, {40, 41, 
  42}, {44, 45, 46}}]