Corregir ntumors as.numeric.

2023-01-25 17:04:00 +01:00
parent 7ca800a3e8
commit f9aef54fa0
1 changed files with 4 additions and 3 deletions
@@ -290,7 +290,7 @@ server <- function(input, output) {
    content = function(file){
      ncages<-input$ncages
      nrat_cage<-5
-      id_tumors<-c("L","R")
+      id_tumors<-c("L","R")[input$ntumors]
      # timepoint<-c(7,10,13,16,19,22,25)
      
      if (!is.null(input$file_sizes)){
@@ -320,11 +320,12 @@ server <- function(input, output) {
        # dtemplate["ID animal"]<-gsub("[LR]","",dtemplate$`ID animal`)
        # dtemplate[,5:ncol(dtemplate)]<-""
      }else{
+        
        template<-data.frame(
-          Cage=rep(LETTERS[1:ncages], each=nrat_cage*input$ntumors),
+          Cage=rep(LETTERS[1:ncages], each=nrat_cage*as.numeric(input$ntumors)),
          Date="",
          DayPostInoc="",
-          Animal=rep(1:(nrat_cage*ncages), each=input$ntumors),
+          Animal=rep(1:(nrat_cage*ncages), each=as.numeric(input$ntumors)),
          Group="",
          Side=rep(id_tumors, nrat_cage*ncages),
          Weight="",