Silenciamiento de prints.

invivos/app.R

@@ -148,19 +148,19 @@ server <- function(input, output) {
     df<-df[!is.na(df$Volume),]
     up_cuttof<-input$upcut
     low_cuttof<-input$lowcut
-    print(up_cuttof)
+    # print(up_cuttof)
     df<-df[df$Volume < up_cuttof & df$Volume >= low_cuttof,]
     df<-merge(df, dades$sex)
     
     # df["Mouse"]<-gsub("[a-zA-Z]", "", df$MouseID)
-    print(df$Volume)
+    # print(df$Volume)
     s<-shapiro.test(df$Volume)[[2]]
     
     ngroup<-length(dades$groups)
     df_def<-list()
-    print(head(df))
+    # print(head(df))
     for (sex.var in c("male","female")){
-      print(sex.var)
+      # print(sex.var)
       df_sex<-df %>% filter(`sex` == sex.var)
       ind.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])]))
-      print(df_sex)
+      # print(df_sex)
       df_def[[sex.var]]<-merge(df_sex %>% select(-group), ind.list[[index]])
     }
     # 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$Timepoint<-gsub("[A-Za-z ]","",table$Timepoint)
-      print(table)
+      # print(table)
       if ("DPV" %in% colnames(table)){
         table<-dcast(table, Cage+`ID animal`+`ID tumor`+Group+Timepoint~DPV, value.var = "value")
         table$Major<-table$Major
@@ -398,7 +398,7 @@ server <- function(input, output) {
     if (!is.null(input$file_analy) & !is.null(analysis$taula_def)){
       observeEvent(analysis$taula_def, {})
       table<-analysis$taula_def
-      print(table , )
+      print(table)
       if (input$vacc == "Sí"){
         ggplot(table, aes(as.numeric(as.character(Timepoint)), Volume, color=Group, group=`ID animal`))+
           # geom_errorbar(stat="summary", width=0.05)+