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

Pequeñas correcciones en la distribución por tamaños.

Browse Source
This commit is contained in:
marcelcosta
2021-06-17 07:32:37 +02:00
parent eed1938c16
commit 32e5767ac0
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
invivos/app.R
+5 -1
View File
@@ -132,6 +132,7 @@ server <- function(input, output) {
}) })
grafic<-eventReactive(input$goButton,{ grafic<-eventReactive(input$goButton,{
df<-dades$taula df<-dades$taula
df<-df[!is.na(df$Volume),]
up_cuttof<-input$upcut up_cuttof<-input$upcut
low_cuttof<-input$lowcut low_cuttof<-input$lowcut
df<-df[df$Volume <= up_cuttof & df$Volume >= low_cuttof,] df<-df[df$Volume <= up_cuttof & df$Volume >= low_cuttof,]
@@ -174,6 +175,9 @@ server <- function(input, output) {
if ("Group" %in% colnames(df_def)){ if ("Group" %in% colnames(df_def)){
df_def<-df_def %>% select(-"Group") df_def<-df_def %>% select(-"Group")
} }
df_def<-merge(dades$taula %>% select(-Group), df_def[,c("ID animal", "group")], all=T) %>% select(c(`ID animal`, `ID tumor`, Volume, Cage, Major, Minor, group))
dades$db<-df_def dades$db<-df_def
print(df_def) print(df_def)
@@ -204,7 +208,7 @@ server <- function(input, output) {
if (!is.null(input$file_sizes)){ if (!is.null(input$file_sizes)){
dtemplate<-dades$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")] %>% arrange(`ID animal`, `ID tumor`)
# template<-expand.grid(dades$db$MouseID, timepoint) # template<-expand.grid(dades$db$MouseID, timepoint)
# colnames(template)<-c("MouseID", "Timepoint") # colnames(template)<-c("MouseID", "Timepoint")
# template<-template[order(template$Timepoint, template$MouseID),] # template<-template[order(template$Timepoint, template$MouseID),]