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

Corregido error en exportar volúmenes.

Browse Source
This commit is contained in:
Costa
2021-07-15 15:39:32 +02:00
parent 68ee37940c
commit 60ceecbd1c
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
invivos/app.R
+2 -2
View File
@@ -327,7 +327,7 @@ server <- function(input, output) {
table<-table %>% filter(!is.na(Group)) table<-table %>% filter(!is.na(Group))
table$Timepoint<-factor(table$Timepoint, levels=mixedsort(as.numeric(as.character(unique(table$Timepoint))))) table$Timepoint<-factor(table$Timepoint, levels=mixedsort(as.numeric(as.character(unique(table$Timepoint)))))
analysis$taula_def<-table analysis$taula_def<-table
analysis$taula_vol<-dcast(table, Cage+`ID animal`+`ID tumor`~Volume) analysis$taula_vol<-dcast(table, Cage+`ID animal`+`ID tumor`~Timepoint,value.var = "Volume")
table_plot<-dcast(dcast(table %>% filter(!is.na(Volume)), `ID animal`+Group+Timepoint~., value.var = "Volume", fun.aggregate = mean), Group~Timepoint) table_plot<-dcast(dcast(table %>% filter(!is.na(Volume)), `ID animal`+Group+Timepoint~., value.var = "Volume", fun.aggregate = mean), Group~Timepoint)
table_plot table_plot
} }
@@ -504,7 +504,7 @@ server <- function(input, output) {
} }
}) })
output$downloadVolumes <- downloadHandler( output$downloadVolume <- downloadHandler(
filename = function() { filename = function() {
paste("invivo-vols", ".xlsx", sep="") paste("invivo-vols", ".xlsx", sep="")