From bdbd8edf9d789f5aafb6e774a836cc4750a11ecd Mon Sep 17 00:00:00 2001 From: marcelcosta Date: Fri, 27 Jan 2023 15:23:04 +0100 Subject: [PATCH] Corregir lectura de fechas en excel. --- invivos/app.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/invivos/app.R b/invivos/app.R index d5c28d8..2acd44d 100755 --- a/invivos/app.R +++ b/invivos/app.R @@ -347,7 +347,8 @@ 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 = " ") + table<-read.xlsx(input$file_analy$datapath, sheet = 1, check.names = F, sep.names = " ", detectDates = T) + table$Date<-format(table$Date, format="%d/%m/%Y") if ("sex" %in% colnames(table)){table<-select(table, -sex)} table$Long<-gsub(",",".", table$Long) table$Wide<-gsub(",",".", table$Wide)