|
|
@ -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 |
|
|
|
|
|
|
|