Cambio en el export de los volúmenes para usar la variable analysis$taula en vez de analysis$taula_vol-

invivos/app.R

@@ -593,7 +593,7 @@ server <- function(input, output) {
       paste("invivo-vols", ".xlsx", sep="")
     },
     content = function(file){
-      dtemplate<-analysis$taula_vol
+      dtemplate<-analysis$taula
       write.xlsx(dtemplate,file)
     }
   )