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

Silenciamiento de prints.

Browse Source
This commit is contained in:
Costa
2022-02-24 14:22:34 +01:00
parent b2d885c2c6
commit add3f573e2
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
invivos/app.R
+7 -7
View File
@@ -148,19 +148,19 @@ server <- function(input, output) {
df<-df[!is.na(df$Volume),] df<-df[!is.na(df$Volume),]
up_cuttof<-input$upcut up_cuttof<-input$upcut
low_cuttof<-input$lowcut low_cuttof<-input$lowcut
print(up_cuttof) # print(up_cuttof)
df<-df[df$Volume < up_cuttof & df$Volume >= low_cuttof,] df<-df[df$Volume < up_cuttof & df$Volume >= low_cuttof,]
df<-merge(df, dades$sex) df<-merge(df, dades$sex)
# df["Mouse"]<-gsub("[a-zA-Z]", "", df$MouseID) # df["Mouse"]<-gsub("[a-zA-Z]", "", df$MouseID)
print(df$Volume) # print(df$Volume)
s<-shapiro.test(df$Volume)[[2]] s<-shapiro.test(df$Volume)[[2]]
ngroup<-length(dades$groups) ngroup<-length(dades$groups)
df_def<-list() df_def<-list()
print(head(df)) # print(head(df))
for (sex.var in c("male","female")){ for (sex.var in c("male","female")){
print(sex.var) # print(sex.var)
df_sex<-df %>% filter(`sex` == sex.var) df_sex<-df %>% filter(`sex` == sex.var)
ind.list<-list() ind.list<-list()
pval.list<-list() pval.list<-list()
@@ -191,7 +191,7 @@ server <- function(input, output) {
} }
} }
index<-which(unlist(lvn.list) == min(unlist(lvn.list)[which(unlist(pval.list) %in% sort(unlist(pval.list), decreasing = T)[1:20])])) index<-which(unlist(lvn.list) == min(unlist(lvn.list)[which(unlist(pval.list) %in% sort(unlist(pval.list), decreasing = T)[1:20])]))
print(df_sex) # print(df_sex)
df_def[[sex.var]]<-merge(df_sex %>% select(-group), ind.list[[index]]) df_def[[sex.var]]<-merge(df_sex %>% select(-group), ind.list[[index]])
} }
# df_def<-do.call(rbind, c(df_def, make.row.names=F)) # df_def<-do.call(rbind, c(df_def, make.row.names=F))
@@ -347,7 +347,7 @@ server <- function(input, output) {
} }
table<-melt(table, id=colnames(table)[colnames(table) %in% col_nodays], variable.name = "Timepoint") table<-melt(table, id=colnames(table)[colnames(table) %in% col_nodays], variable.name = "Timepoint")
table$Timepoint<-gsub("[A-Za-z ]","",table$Timepoint) table$Timepoint<-gsub("[A-Za-z ]","",table$Timepoint)
print(table) # print(table)
if ("DPV" %in% colnames(table)){ if ("DPV" %in% colnames(table)){
table<-dcast(table, Cage+`ID animal`+`ID tumor`+Group+Timepoint~DPV, value.var = "value") table<-dcast(table, Cage+`ID animal`+`ID tumor`+Group+Timepoint~DPV, value.var = "value")
table$Major<-table$Major table$Major<-table$Major
@@ -398,7 +398,7 @@ server <- function(input, output) {
if (!is.null(input$file_analy) & !is.null(analysis$taula_def)){ if (!is.null(input$file_analy) & !is.null(analysis$taula_def)){
observeEvent(analysis$taula_def, {}) observeEvent(analysis$taula_def, {})
table<-analysis$taula_def table<-analysis$taula_def
print(table , ) print(table)
if (input$vacc == "Sí"){ if (input$vacc == "Sí"){
ggplot(table, aes(as.numeric(as.character(Timepoint)), Volume, color=Group, group=`ID animal`))+ ggplot(table, aes(as.numeric(as.character(Timepoint)), Volume, color=Group, group=`ID animal`))+
# geom_errorbar(stat="summary", width=0.05)+ # geom_errorbar(stat="summary", width=0.05)+