Browse Source

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

main
marcelcosta 2 years ago
parent
commit
cb6c739d14
1 changed files with 3 additions and 0 deletions
  1. +3
    -0
      BDAccess/app.R

+ 3
- 0
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

Loading…
Cancel
Save