Code no longer working for changing the shapes/colors of points in a metaMDS in vegan in R

Question

I am sure there is an easy answer for this. I have been using this code for years and the other day at work I went to make an ordination, and it stopped working. :( Granted,