[R] how can generate h(u)=min{a,log(u)} for 0<u<1 in R ?

[khazaei at ceremade.dauphine.fr]

Hello,

How can generate a sample from h(u)=min{a,log(u)} for 0<u<1   in R,please?

thank you
khazaei