From 603f06db6605e0ea7d4c2f4232f09dd86561b270 Mon Sep 17 00:00:00 2001 From: marcelcosta Date: Tue, 7 Feb 2023 18:13:39 +0100 Subject: [PATCH] Eliminar un taula$def. --- invivos/app.R | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/invivos/app.R b/invivos/app.R index 2acd44d..7242715 100755 --- a/invivos/app.R +++ b/invivos/app.R @@ -357,7 +357,7 @@ server <- function(input, output) { wide<-as.numeric(strsplit(table[i,"Wide"],"+", fixed = T)[[1]]) table[i,"Volume"]<-sum(sapply(1:length(long), function(x) (long[x]*wide[x]*wide[x])*(pi/6))) } - + ## Autocompletado de grupo table_group<-merge( table %>% select(Animal, Group) %>% unique() %>% group_by(Animal) %>% count(), @@ -369,14 +369,13 @@ server <- function(input, output) { table_group ) %>% relocate(Group, .after = DayPostInoc) %>% arrange(DayPostInoc, Animal, Side) - analysis$taula<-table } }) output$cutoffUI<-renderUI({ - if (!is.null(analysis$taula_def)){ - observeEvent(analysis$taula_def, {}) - max_val<-max(analysis$taula_def$Volume, na.rm = T) + if (!is.null(analysis$taula)){ + observeEvent(analysis$taula, {}) + max_val<-max(analysis$taula$Volume, na.rm = T) # print(max_val) sliderInput("cutoff", "Cutoff para Survival", min=0, max=round(max_val, digits=2), step=round(max_val, digits=2)/200, value=max_val) }