Generate random number for loglogistic distribution

I need generating random number for log logistic distribution with accpet/reject method and transformation method and inverse function in R but I dont know how can I do it ! ( in python its ok )