Prints incorrect number of chains for JointModelSamples

[gravesti]

Printing a JointModelSamples object appears to have the wrong number of chains

mp <-  sampleStanModel(
            jm,
            data = jdat,
            iter_sampling = 1000,
            iter_warmup = 1000,
            chains = 3,
            parallel_chains = 4
        )
mp

prints

   JointModelSamples Object with:
  
      # of samples per chain = 1000
      # of chains            = 1
  
      Variables:
          beta_os_cov[3]
          link_coefficients
          ...

but I expect number of chains should be 3.

This comes from

jmpost/R/JointModelSamples.R

Line 107 in c29f73f

as.CmdStanMCMC(object)$metadata()$num_chains

and I think it should be

 as.CmdStanMCMC(object)$num_chains()

eg

as.CmdStanMCMC(mp)$num_chains()
[1] 3