Dynamically create nested s4 class slot names and assign values in R

Dear all

Is that possible somehow?

I rarely touch S4. Looks like you sorted it out though?