marcelcosta/Elispots-app
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Corregir error mock

Browse Source
This commit is contained in:
Costa
2021-02-15 13:11:53 +01:00
parent ef45b35db7
commit 756cb1b300
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
app.R
+5 -1
View File
@@ -131,7 +131,11 @@ server <- function(input, output) {
t_maps<-generate_labstats(t_stats, t, "value", "variable", "Groups") t_maps<-generate_labstats(t_stats, t, "value", "variable", "Groups")
dades$maps<<-t_maps dades$maps<<-t_maps
} }
dades$final<<-t_substr %>% select(-c(ctrl, mock)) print(t_substr)
dades$final<<-if(ctrl %in% colnames(t_substr)){t_substr %>% select(-cctrl)}else{t_substr}
# dades$final<<-if(ctrl %in% colnames(t_substr)){t_substr %>% select(-c(ctrl, mock))}else{t_substr %>% select(-mock)}
set.seed(123) set.seed(123)
if (input$positive == T){ if (input$positive == T){
ggplot(melt(t_substr, id=c("Mice", ctrl, "Groups")), aes(variable, value))+ ggplot(melt(t_substr, id=c("Mice", ctrl, "Groups")), aes(variable, value))+