Interactively runs PCA on a FacileDataStore. If you want to run PCA on a subset of samples, pass in a facile_frame sample descriptor

fpcaGadget(x, title = "Principal Components Analysis", viewer = "browser", ...)

Examples

if (interactive()) {
efds <- FacileData::exampleFacileDataSet()
# run tumor vs normal comparisons vs each, then run compare9) on the results
pca.crc <- efds %>%
  FacileData::filter_samples(indication == "CRC") %>%
  fpcaGadget()
report(pca.crc)
shine(pca.crc)
}