marcelcosta/invivos
1
0
Fork 0
Code Issues 3 Pull Requests Projects Releases Wiki Activity

Corregir lectura de fechas en excel.

Browse Source
This commit is contained in:
marcelcosta
2023-01-27 15:23:04 +01:00
parent dde77d987c
commit bdbd8edf9d
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
invivos/app.R
+2 -1
View File
@@ -347,7 +347,8 @@ server <- function(input, output) {
analysis$taula_vol<-NULL analysis$taula_vol<-NULL
observe({ observe({
if (!is.null(input$file_analy)){ 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)} if ("sex" %in% colnames(table)){table<-select(table, -sex)}
table$Long<-gsub(",",".", table$Long) table$Long<-gsub(",",".", table$Long)
table$Wide<-gsub(",",".", table$Wide) table$Wide<-gsub(",",".", table$Wide)