From 2ca8e2b212e9be023ae27112ebda664fd7458ec1 Mon Sep 17 00:00:00 2001 From: marcelcosta Date: Tue, 14 Feb 2023 16:45:54 +0100 Subject: [PATCH] =?UTF-8?q?En=20an=C3=A1lisis,=20coger=20s=C3=B3lo=20las?= =?UTF-8?q?=2011=20primeras=20columnas.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- invivos/app.R | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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)){