Error en id_tumors del template.

2023-01-25 17:11:36 +01:00
parent 4e3a8ca8d9
commit d0c7391cae
1 changed files with 1 additions and 1 deletions
@@ -290,7 +290,7 @@ server <- function(input, output) {
    content = function(file){
      ncages<-input$ncages
      nrat_cage<-5
-      id_tumors<-c("L","R")[as.numeric(input$ntumors)]
+      id_tumors<-c("L","R")[1:as.numeric(input$ntumors)]
      # timepoint<-c(7,10,13,16,19,22,25)
      
      if (!is.null(input$file_sizes)){