text on PCA plot on and off
getTextOnOff(id = "pca")
id,
namespace id
getTextOnOff
x <- getTextOnOff("pca")