Warning on saveRDS of qenv object

[pawelru]

I was having issues with shinytest2 and I narrowed this to the following reprex:

library(teal.code)
qenv() |> saveRDS(tempfile())
#> Warning in saveRDS(qenv(), tempfile()): 'package:teal.code' may not be
#> available when loading

^{Created on 2024-01-23 with reprex v2.1.0}

Not digging into why one might want to call saveRDS() (in my case it's out of my control) - is there a way to avoid this warning?

[chlebowa]

Perhaps this is because you need the class definition to deserialize on object?

[pawelru]

When googling for this topic I encountered this issue with linked PR. In there, the problem was about saveRDS of list with functions which inherits from attached environment (that is in the middle of search path - don't know if it's relevant).
In our context, a similar thing is present in applying parent of qenv@env.

I came up with the following warning-free snippet:

library(teal.code)
q <- qenv()
parent.env(q@env) <- baseenv()
saveRDS(q, tempfile())

^{Created on 2024-01-23 with reprex v2.1.0}

I'm not suggesting this to be a solution (don't know this yet) - I think this is related. Will dig more into this tomorrow.

[chlebowa]

parent.env(q@env) <- baseenv()

Utterly unacceptable.