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

corregir aplicación

Browse Source
This commit is contained in:
marcelcosta
2020-11-03 18:19:41 +01:00
parent 62632340e6
commit 7b7b71e791
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
invivos/app.R
+6 -1
View File
@@ -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)
} }
) )