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

En análisis, coger sólo las 11 primeras columnas.

Browse Source
This commit is contained in:
marcelcosta
2023-02-14 16:45:54 +01:00
parent 54a20f10c7
commit 2ca8e2b212
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
invivos/app.R
+1 -2
View File
@@ -354,7 +354,7 @@ 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 = " ", 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)){ if("ID.animal" %in% colnames(table)){
table<-table %>% table<-table %>%
rename(Animal=`ID.animal`, Side=`ID.tumor`) rename(Animal=`ID.animal`, Side=`ID.tumor`)
@@ -367,7 +367,6 @@ server <- function(input, output) {
relocate(Side, .after = "Group") relocate(Side, .after = "Group")
table$DayPostInoc<-as.numeric(table$DayPostInoc) table$DayPostInoc<-as.numeric(table$DayPostInoc)
} }
table$Date<-format(table$Date, format="%d/%m/%Y") 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)}
for (i in 1:nrow(table)){ for (i in 1:nrow(table)){