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

Corrección exportar.

Browse Source
This commit is contained in:
Costa
2022-02-23 16:06:33 +01:00
parent 804ff59a23
commit 8357293f6a
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
invivos/app.R
+1 -1
View File
@@ -257,7 +257,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<-dades$db %>% select(-Volume) dtemplate<-dades$db %>% select(-Volume,-sex)
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")] %>% arrange(`ID animal`, `ID tumor`) dtemplate<-dtemplate[,c("Cage", "ID animal", "ID tumor", "Group", "DPV", "0")] %>% arrange(`ID animal`, `ID tumor`)
# template<-expand.grid(dades$db$MouseID, timepoint) # template<-expand.grid(dades$db$MouseID, timepoint)