How to add p values for Spearman correlation coefficients plotted using pairs in R

Question

I see that there is already code available to add Pearson correlation coefficients and p values to a scatterplot matrix. Now I would simply like to add Spearman correlation coef