From 756cb1b30060681040a847fb04e58e2d2624e9c0 Mon Sep 17 00:00:00 2001 From: Costa <47926492N@ICO.SCS.local> Date: Mon, 15 Feb 2021 13:11:53 +0100 Subject: [PATCH] Corregir error mock --- app.R | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/app.R b/app.R index 21b8700..add3751 100644 --- a/app.R +++ b/app.R @@ -131,7 +131,11 @@ server <- function(input, output) { t_maps<-generate_labstats(t_stats, t, "value", "variable", "Groups") 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) if (input$positive == T){ ggplot(melt(t_substr, id=c("Mice", ctrl, "Groups")), aes(variable, value))+