put_rprofile_adapt function

Rprofile