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

Ordenar template.

Browse Source
This commit is contained in:
Costa
2020-12-22 17:31:59 +01:00
parent 79755bd197
commit 7964567c3e
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
@@ -239,12 +239,13 @@ server <- function(input, output) {
template<-template[order(template$Timepoint, template$Cage, template$`ID animal`, template$`ID tumor`),] template<-template[order(template$Timepoint, template$Cage, template$`ID animal`, template$`ID tumor`),]
template["TS"]<-rep(c("TS-Length", "TS-Width", "TS-Deep"), nrow(template)/3) template["TS"]<-rep(c("TS-Length", "TS-Width", "TS-Deep"), nrow(template)/3)
dtemplate<-dcast(template, Cage+`ID animal`+`ID tumor`+Group+TS~Timepoint) dtemplate<-dcast(template, Cage+`ID animal`+`ID tumor`+Group+TS~Timepoint)
dtemplate<-dtemplate[,mixedorder(dtemplate$`ID animal`, dtemplate$`ID tumor`, dtemplate$TS)]
} }
if (input$measure_sys == "Min-Max"){ if (input$measure_sys == "Min-Max"){
template<-rbind(template, template) template<-rbind(template, template)
template<-template[order(template$Timepoint, template$Cage, template$`ID animal`, template$`ID tumor`),] template<-template[order(template$Timepoint, template$Cage, template$`ID animal`, template$`ID tumor`),]
template["DPV"]<-rep(c("Major", "Minor"), nrow(template)/2) template["DPV"]<-rep(c("Major", "Minor"), nrow(template)/2)
dtemplate<-dcast(template, Cage+`ID animal`+`ID tumor`+Group+DPV~Timepoint) dtemplate<-dcast(template, Cage+`ID animal`+`ID tumor`+Group+DPV~Timepoint)
} }
dtemplate[,6:ncol(dtemplate)]<-"" dtemplate[,6:ncol(dtemplate)]<-""
} }