select legend
getLegendSelect(id = "pca")
id,
namespace id
getLegendSelect
x <- getLegendSelect("pca")