|
|
@ -1,4 +1,9 @@ |
|
|
library(shiny) |
|
|
library(shiny) |
|
|
|
|
|
library(ggplot2) |
|
|
|
|
|
library(reshape2) |
|
|
|
|
|
library(openxlsx) |
|
|
|
|
|
library(dplyr) |
|
|
|
|
|
source("../funcions.R") |
|
|
|
|
|
|
|
|
# Define UI for application |
|
|
# Define UI for application |
|
|
ui <- fluidPage( |
|
|
ui <- fluidPage( |
|
|
@ -40,7 +45,7 @@ server <- function(input, output) { |
|
|
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[,6:ncol(dtemplate)]<-"" |
|
|
dtemplate[,6:ncol(dtemplate)]<-"" |
|
|
|
|
|
|
|
|
|
|
|
print(dtemplate) |
|
|
write.xlsx(dtemplate,file) |
|
|
write.xlsx(dtemplate,file) |
|
|
} |
|
|
} |
|
|
) |
|
|
) |
|
|
|
