From 702df5607d1da9844790519323488f7a4070916f Mon Sep 17 00:00:00 2001 From: Keith M Date: Wed, 24 Mar 2021 11:37:16 -0700 Subject: [PATCH] pcs --- .gitignore | 1 + app.R | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/.gitignore b/.gitignore index 731ca55..67bacf5 100644 --- a/.gitignore +++ b/.gitignore @@ -3,3 +3,4 @@ .RData .Ruserdata .idea/* +*.rds \ No newline at end of file diff --git a/app.R b/app.R index 4177700..669d768 100644 --- a/app.R +++ b/app.R @@ -13,7 +13,7 @@ reductions <- attributes(aggregate@reductions) meta_nums <- colnames(dplyr::select_if(aggregate@meta.data, is.numeric)) meta_cats <- c(colnames(dplyr::select_if(aggregate@meta.data, is.character)), colnames(dplyr::select_if(aggregate@meta.data, is.factor)),colnames(dplyr::select_if(aggregate@meta.data, is.logical))) pcs <- list('PC_1','PC_2','PC_3','PC_4','PC_5','PC_6','PC_7','PC_8','PC_9') -use.pcs <- 1:29 +use.pcs <- 1:50 #agg_cats <- colnames(dplyr::select_if(aggregate@meta.data, is.factor)) # TODO get reduction types as a list to choose from