...
|
...
|
@@ -365,9 +365,15 @@ statmodelServer <- function(input, output, session,parent_session, loadpage_inpu
|
365
|
365
|
data_comp$ComparisonResult$adj.pvalue < input$signif, ]
|
366
|
366
|
|
367
|
367
|
} else {
|
368
|
|
- significant = with(data_comparison(), round_df(ComparisonResult[
|
369
|
|
- ComparisonResult$adj.pvalue < input$signif, ]))
|
370
|
|
-
|
|
368
|
+ # significant = with(data_comparison(), round_df(ComparisonResult[
|
|
369
|
+ # ComparisonResult$adj.pvalue < input$signif &
|
|
370
|
+ # !is.na(ComparisonResult$Protein), ]))
|
|
371
|
+ # print(significant)
|
|
372
|
+
|
|
373
|
+ data_comp = data_comparison()
|
|
374
|
+ significant = data_comp$ComparisonResult[
|
|
375
|
+ which(data_comp$ComparisonResult$adj.pvalue < input$signif), ]
|
|
376
|
+ print(significant)
|
371
|
377
|
}
|
372
|
378
|
return(significant)
|
373
|
379
|
})
|