How to generate random values from Horseshoe prior

Hi,Guys:
I have been trying to generate random values from horseshoe prior for a plotting purpose…

Yet they all seems a little bit off compared to the original plots in Carvalho et al. (2009)Handling Sparsity via the Horseshoe.

Some of the functions that I have used are rhs(n,lambda,tau)and dhs(x,lambda,tau) from library(LaplacesDemon) where I provided the parameter values for local shrinkage and global shrinkage…

Could someone provide some insights why this is happening?
Any helps will be appreciated.
Thanks!