diff --git a/invivos/app.R b/invivos/app.R index 229506a..60273b6 100755 --- a/invivos/app.R +++ b/invivos/app.R @@ -354,7 +354,7 @@ server <- function(input, output) { analysis$taula_vol<-NULL observe({ if (!is.null(input$file_analy)){ - table<-read.xlsx(input$file_analy$datapath, sheet = 1, check.names = F, sep.names = " ", detectDates = T) + table<-read.xlsx(input$file_analy$datapath, sheet = 1, check.names = F, sep.names = " ", detectDates = T,cols=1:11) if("ID.animal" %in% colnames(table)){ table<-table %>% rename(Animal=`ID.animal`, Side=`ID.tumor`) @@ -367,7 +367,6 @@ server <- function(input, output) { relocate(Side, .after = "Group") table$DayPostInoc<-as.numeric(table$DayPostInoc) } - table$Date<-format(table$Date, format="%d/%m/%Y") if ("sex" %in% colnames(table)){table<-select(table, -sex)} for (i in 1:nrow(table)){