Eliminar un taula$def.

2023-02-07 18:13:39 +01:00
parent bdbd8edf9d
commit 603f06db66
1 changed files with 4 additions and 5 deletions
@@ -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)
    }