Marcel ShinyServer 4 years ago
parent
commit
f936d73b88
1 changed files with 6 additions and 1 deletions
  1. +6
    -1
      invivos/app.R

+ 6
- 1
invivos/app.R

@ -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)
} }
) )

Loading…
Cancel
Save