Trouble Creating a Rarefaction Curve

Hi, I am trying to create a rarefaction curve using the Vegan Package but I keep receiving an error. I am so confused at this point. (I apologize if I did not post all the information needed). Thank you in advance for any help.

physeq.prune <- readRDS("physeq-pruned.RDS")
image
The below image is just the top of the data but its basically all zeros like this
image

The code I have been trying to use to create the curve with the error:
rarecurve(otu_table(physeq.prune), step = 50, cex = 0.5)
Error in as(x, "matrix")[i, j, drop = FALSE] :
(subscript) logical subscript too long