R-studio : Is there any way to run a code with variable names superior to 10000 bytes?

Question

This is my code : enter image description here

I\'m getting this error: Error in do.call(data.frame, c(x, alis)) : variable names are limited to 10000 bytes

Th