Corregir que al exportar randomización mantenga "Abs" en columnas si era así en el original.

2024-09-25 15:28:10 +02:00
parent 1237794f62
commit a3eaf3e7a9
1 changed files with 3 additions and 0 deletions
@@ -338,6 +338,9 @@ server <- function(input, output) {
          arrange(DayPostInoc, Animal, Side) %>% 
          select(Animal, Date, DayPostInoc, Group, Side, 
                 Weight, Long, Wide, Volume, Observations)
+        if ("Abs" %in% colnames(read.xlsx(input$file_sizes$datapath, sheet = 1, check.names = F, sep.names = " ", detectDates = T,cols=1:11))){
+          dtemplate<-rename(dtemplate, "Abs"="Volume")
+        }
      }else{
        
        template<-data.frame(