Shallow and deep copy of R6 elements in a list

Question

Here is a simple R6Class

C = R6::R6Class(
    "C",
    public = list(
        x = NULL,

        initialize = function(x)
        {
            self