Corregir ntumors as.numeric.

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")
+      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="",