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

"correct template"

Browse Source
This commit is contained in:
Costa
2020-11-04 12:46:30 +01:00
parent 0ad5926807
commit 0f4791f814
1 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
invivos/app.R
+8 -3
View File
@@ -178,10 +178,15 @@ server <- function(input, output) {
dtemplate<-dcast(template, MouseID+group+DPV~Timepoint) dtemplate<-dcast(template, MouseID+group+DPV~Timepoint)
dtemplate<-dtemplate[mixedorder(as.character(dtemplate$MouseID)),] dtemplate<-dtemplate[mixedorder(as.character(dtemplate$MouseID)),]
} }
dtemplate[,4:ncol(dtemplate)]<-"" dtemplate<-dtemplate %>% add_column(.after="MouseID", "ID tumor"=dtemplate$MouseID)%>% rename(`ID animal`=MouseID)
dtemplate["ID tumor"]<-gsub("[[:digit:]]","",dtemplate$`ID tumor`)
dtemplate["ID animal"]<-gsub("[LR]","",dtemplate$`ID animal`)
dtemplate[,5:ncol(dtemplate)]<-""
}else{ }else{
template<-expand.grid(LETTERS[1:ncages], 1:5, id_tumors, timepoint) template<-expand.grid(LETTERS[1:ncages], 1:5, id_tumors, timepoint)[,-2]
colnames(template)<-c("Cage", "ID animal", "ID tumor", "Timepoint") colnames(template)<-c("Cage", "ID tumor", "Timepoint")
nids<-length(id_tumors)*length(timepoint)
template[order(template$Cage),"ID animal"]<-rep(1:(nrow(template)/(nids)), each=nids)
template<-template[order(template$Timepoint, template$Cage, template$`ID animal`),] template<-template[order(template$Timepoint, template$Cage, template$`ID animal`),]
template["Group"]<-"" template["Group"]<-""
if (input$measure_sys == "L-W-D"){ if (input$measure_sys == "L-W-D"){