R spreaded matrix but had Error: Can't assign to elements that don't exist

Question

Win10 Build 18363.836; R version R-4.0.2; RStudio version 1.3.1093; CPU: Intel i7-7500U; Physical Memory: 16GB; HDD: 500GB SSD

I am working on the Instacart Market Basket