write reactive expressions for PCA in script PCA.R