In the python package one can do adata.raw = adata to activate the raw slot How to do that in the R package?