Is there an R equivalent to the selmlog command from stata?

I'm analyzing competing risk models using the 'coxph' function from the survival package in R. I want to add a variable controlling for sample selection following F.G. Lee 1983/Bourguignon,Fournier, Gurgand 2007 papers.

In stata the command is "selmlog" is there a R equivalent?