Eliminar un taula$def.

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)
     }