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

Añadido Abs como opción para medidas de IVIS en la pestaña Análisis.

Browse Source
This commit is contained in:
marcelcosta
2024-09-25 15:22:15 +02:00
parent bbf19befaf
commit 1237794f62
1 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
invivos/app.R
+11 -5
View File
@@ -121,12 +121,17 @@ server <- function(input, output) {
} }
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)){ if ("Abs" %in% colnames(table)){
long<-as.numeric(gsub(",",".",strsplit(as.character(table[i,"Long"]),"+", fixed = T)[[1]])) table<-rename(table, "Volume"="Abs")
wide<-as.numeric(gsub(",",".",strsplit(as.character(table[i,"Wide"]),"+", fixed = T)[[1]])) }else{
table[i,"Volume"]<-sum(sapply(1:length(long), function(x) (long[x]*wide[x]*wide[x])*(pi/6))) for (i in 1:nrow(table)){
long<-as.numeric(gsub(",",".",strsplit(as.character(table[i,"Long"]),"+", fixed = T)[[1]]))
wide<-as.numeric(gsub(",",".",strsplit(as.character(table[i,"Wide"]),"+", fixed = T)[[1]]))
table[i,"Volume"]<-sum(sapply(1:length(long), function(x) (long[x]*wide[x]*wide[x])*(pi/6)))
}
table$Volume<-as.numeric(table$Volume)
} }
table$Volume<-as.numeric(table$Volume)
if ("Cage" %in% colnames(table)){ if ("Cage" %in% colnames(table)){
table$Animal<-paste0(table$Cage, table$Animal) table$Animal<-paste0(table$Cage, table$Animal)
table<-table[,-which(colnames(table) == "Cage")] table<-table[,-which(colnames(table) == "Cage")]
@@ -194,6 +199,7 @@ server <- function(input, output) {
grafic<-eventReactive(input$goButton,{ grafic<-eventReactive(input$goButton,{
df<-dades$taula %>% filter(DayPostInoc == input$day_vol) df<-dades$taula %>% filter(DayPostInoc == input$day_vol)
df<-df[!is.na(df$Volume),] df<-df[!is.na(df$Volume),]
print(df)
up_cuttof<-input$upcut up_cuttof<-input$upcut
low_cuttof<-input$lowcut low_cuttof<-input$lowcut