How to draw diamond as long as confidence interval in forest plot in R

Question

[Phylicia]

Hi I want to draw forest plot as the example shows.

I want to draw summary results of every subgroup into diamonds as long as the confidence interval.

I have tried fpDrawSummaryCI (https://rdrr.io/cran/forestplot/man/fpDrawCI.html) but it does not work.

If I used fpDrawDiamondCI, it is only as small diamond.

How could I do? Thank you!