how to export PCA model summary in csv?

Question

I have done a pca using princomp function. I want to export model summary into .csv file, I have done so far

PP = read.csv("paper 2.csv", heade