From cb6c739d14f24636761b35ee4c4da00c2c547f2e Mon Sep 17 00:00:00 2001 From: marcelcosta Date: Tue, 5 Apr 2022 10:08:26 +0200 Subject: [PATCH] =?UTF-8?q?Para=20actualizar=20la=20tabla=20Poblaciones=20?= =?UTF-8?q?de=20citometr=C3=ADa,=20permitir=20que=20falten=20poblaciones?= =?UTF-8?q?=20(de=20cara=20a=20agrupar=20diferentes=20paneles).?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- BDAccess/app.R | 3 +++ 1 file changed, 3 insertions(+) diff --git a/BDAccess/app.R b/BDAccess/app.R index 130d65e..b15a8fd 100644 --- a/BDAccess/app.R +++ b/BDAccess/app.R @@ -969,6 +969,9 @@ server <- function(input, output) { pop$percent<-round(pop$percent, digits=2) pop_sp<-pop %>% spread(pop, percent) + pop_sql<-sqlFetch(dta, "POPULATIONS") %>% slice(0) + pop_sp<-pop_sp %>% merge(pop_sql, all=T) %>% select(colnames(pop_sql)) + vartypes<-rep("Number", pop_sp %>% select(-samples) %>% colnames %>% length) names(vartypes)<-pop_sp %>% select(-samples) %>% colnames