From 4e3a8ca8d9707e98e5cc0e4082b0d7e98adfbe69 Mon Sep 17 00:00:00 2001
From: marcelcosta <marcelcosta@mcosta.cat>
Date: Wed, 25 Jan 2023 17:09:31 +0100
Subject: [PATCH] Otro as.numeric(input$ntumors)

---
 invivos/app.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/invivos/app.R b/invivos/app.R
index 6e49c60..4585868 100755
--- a/invivos/app.R
+++ b/invivos/app.R
@@ -290,7 +290,7 @@ server <- function(input, output) {
     content = function(file){
       ncages<-input$ncages
       nrat_cage<-5
-      id_tumors<-c("L","R")[input$ntumors]
+      id_tumors<-c("L","R")[as.numeric(input$ntumors)]
       # timepoint<-c(7,10,13,16,19,22,25)
       
       if (!is.null(input$file_sizes)){