marcelcosta/BDAccess
1
0
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

Para actualizar la tabla Poblaciones de citometría, permitir que falten poblaciones (de cara a agrupar diferentes paneles).

Browse Source
This commit is contained in:
marcelcosta
2022-04-05 10:08:26 +02:00
parent 20bf1d2c20
commit cb6c739d14
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
BDAccess/app.R
+3
View File
@@ -969,6 +969,9 @@ server <- function(input, output) {
pop$percent<-round(pop$percent, digits=2) pop$percent<-round(pop$percent, digits=2)
pop_sp<-pop %>% spread(pop, percent) 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) vartypes<-rep("Number", pop_sp %>% select(-samples) %>% colnames %>% length)
names(vartypes)<-pop_sp %>% select(-samples) %>% colnames names(vartypes)<-pop_sp %>% select(-samples) %>% colnames