|
@ -202,7 +202,7 @@ server <- function(input, output) { |
|
|
timepoint<-c(7,10,13,16,19,22,25) |
|
|
timepoint<-c(7,10,13,16,19,22,25) |
|
|
|
|
|
|
|
|
if (!is.null(input$file_sizes)){ |
|
|
if (!is.null(input$file_sizes)){ |
|
|
dtemplate<-df$db %>% select(-Volume) |
|
|
|
|
|
|
|
|
dtemplate<-dades$db %>% select(-Volume) |
|
|
dtemplate<-melt(dtemplate, id=c("Cage", "ID animal", "ID tumor", "group"), variable.name = "DPV", value.name = "0") %>% rename("Group"="group") |
|
|
dtemplate<-melt(dtemplate, id=c("Cage", "ID animal", "ID tumor", "group"), variable.name = "DPV", value.name = "0") %>% rename("Group"="group") |
|
|
dtemplate<-dtemplate[,c("Cage", "ID animal", "ID tumor", "Group", "DPV", "0")] |
|
|
dtemplate<-dtemplate[,c("Cage", "ID animal", "ID tumor", "Group", "DPV", "0")] |
|
|
# template<-expand.grid(dades$db$MouseID, timepoint) |
|
|
# template<-expand.grid(dades$db$MouseID, timepoint) |
|
|