From b2d885c2c683cddb3ba89808a26bf6261c455b3f Mon Sep 17 00:00:00 2001
From: Costa <47926492N@ICO.SCS.local>
Date: Thu, 24 Feb 2022 14:21:31 +0100
Subject: [PATCH] =?UTF-8?q?Corregir=20bug=20al=20importar=20fichero=20an?=
 =?UTF-8?q?=C3=A1lisis=20porque=20no=20encuentra=20columna=20sex.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 invivos/app.R | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/invivos/app.R b/invivos/app.R
index e827954..0d3eb8e 100755
--- a/invivos/app.R
+++ b/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)
     }
   })