From bad82bbed039ed06ac3dfc3c7f6a00fdced5d876 Mon Sep 17 00:00:00 2001
From: Schultheis <hschult@kerckhoff.mpg.de>
Date: Wed, 25 Apr 2018 14:20:00 +0200
Subject: [PATCH] pca: fixed wrong variable name

---
 R/pca.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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()