Corregir bug al importar fichero análisis porque no encuentra columna sex.

invivos/app.R

@@ -317,14 +317,16 @@ server <- function(input, output) {
   analysis$taula_vol<-NULL
   observe({
     if (!is.null(input$file_analy)){ 
-      analysis$taula<-read.xlsx(input$file_analy$datapath, sheet = 1, check.names = F, sep.names = " ") %>% select(-sex)
+      table<-read.xlsx(input$file_analy$datapath, sheet = 1, check.names = F, sep.names = " ")
+      if ("sex" %in% colnames(table)){table<-select(table, -sex)}
+      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)
-      print(max_val)
+      # print(max_val)
       sliderInput("cutoff", "Cutoff para Survival", min=0, max=round(max_val), step=round(max_val)/200, value=max_val)
     }
   })