Corregir cutoff para survivals.

invivos/app.R

@@ -36,7 +36,7 @@ ui <- fluidPage(
                        sidebarPanel(
                          fileInput(inputId = "file_analy", label = "Hoja de análisis", multiple = F),
                          selectInput(inputId = "vacc", "Experimento de Vacunación", selected = "No", choices = c("Sí","No")),
-                         sliderInput("cutoff", "Cutoff para Survival", min=100, max=1500, step=50, value=750),
+                         uiOutput('cutoffUI'),
                          checkboxInput("filter_stats","Filtrar Estadística")
                        ),
                        mainPanel(
@@ -240,6 +240,13 @@ server <- function(input, output) {
       analysis$taula<-read.xlsx(input$file_analy$datapath, sheet = 1, check.names = F, sep.names = " ")
     }
   })
+  output$cutoffUI<-renderUI({
+    if (!is.null(analysis$taula_def)){
+      observeEvent(analysis$taula_def, {})
+      max_val<-max(analysis$taula_def$Volume)
+      sliderInput("cutoff", "Cutoff para Survival", min=0, max=round(max_val), step=round(max_val)/200, value=max_val)
+    }
+  })
   output$ntable<-renderTable({
     if (!is.null(input$file_analy)){
       observeEvent(analysis$taula, {})