diff --git a/invivos/app.R b/invivos/app.R index e82193f..1db5d31 100755 --- a/invivos/app.R +++ b/invivos/app.R @@ -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(