[dev branch] plotPCA fails if shape has an NA value but NAshape is not specified e.g. `exampleTumourNormal %>% getPCA() %>% plotPCA(shape = "stage")`