GGS for brmsmultiple objects

[J-Baxter]

Hello,

the 'ggs' function didn't appear to natively accommodate brmsmultiple objects (ie the output of brms:brm_multiple(combine= TRUE) due to logical statement:

if ( class(S) == "brmsfit" ) {
    S <- S$fit
  }

If this logical could be relaxed as follows, everything appears to function as desired thereafter:

 if ( "brmsfit" %in% class(S)) {
    S <- S$fit
  }

Many thanks!