Browse Source

Corregir error.

master
Costa 3 years ago
parent
commit
cbf28e37c4
1 changed files with 3 additions and 1 deletions
  1. +3
    -1
      invivos/app.R

+ 3
- 1
invivos/app.R

@ -239,7 +239,9 @@ server <- function(input, output) {
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)
dtemplate<-dcast(template, Cage+`ID animal`+`ID tumor`+Group+TS~Timepoint)
dtemplate<-dtemplate[,mixedorder(dtemplate$`ID animal`, dtemplate$`ID tumor`, dtemplate$TS)]
dtemplate<-dtemplate[order(match(dtemplate$TS, c("TS-Length", "TS-Width", "TS-Deep"))),]
dtemplate<-dtemplate[mixedorder(dtemplate$`ID tumor`),]
dtemplate<-dtemplate[mixedorder(dtemplate$`ID animal`),]
}
if (input$measure_sys == "Min-Max"){
template<-rbind(template, template)

Loading…
Cancel
Save