diff --git a/R/pca.R b/R/pca.R index ae49990..8d4d166 100644 --- a/R/pca.R +++ b/R/pca.R @@ -111,7 +111,7 @@ pca <- function(input, output, session, data, types, levels = NULL, entryLabel = }) levels.r <- shiny::reactive({ if(is.null(levels)){ - metadata.r()[["level"]] + types.r()[["level"]] }else{ if(shiny::is.reactive(levels)){ levels()