...
|
...
|
@@ -625,7 +625,7 @@ sconeReport = function(x, methods,
|
625
|
625
|
fill = cc[sort(unique(factor(strat_col())))])
|
626
|
626
|
})
|
627
|
627
|
|
628
|
|
- output$plot3d_base <- shiny::renderPlotly({
|
|
628
|
+ output$plot3d_base <- plotly::renderPlotly({
|
629
|
629
|
PC1 <- PC2 <- PC3 <- NULL
|
630
|
630
|
df <- setNames(data.frame(pc_obj_base()$x[,1:3]),
|
631
|
631
|
c("PC1", "PC2", "PC3"))
|
...
|
...
|
@@ -665,7 +665,7 @@ sconeReport = function(x, methods,
|
665
|
665
|
abs(cor(qc,pc_obj_base()$x))
|
666
|
666
|
})
|
667
|
667
|
|
668
|
|
- output$qccorPlot <- shiny::renderPlotly({
|
|
668
|
+ output$qccorPlot <- plotly::renderPlotly({
|
669
|
669
|
metric <- value <- PC <- NULL
|
670
|
670
|
|
671
|
671
|
df = reshape2::melt(cor_qc()[,1:input$dim])
|
...
|
...
|
@@ -696,7 +696,7 @@ sconeReport = function(x, methods,
|
696
|
696
|
fill = cc[sort(unique(factor(strat_col())))])
|
697
|
697
|
})
|
698
|
698
|
|
699
|
|
- output$plot3d_qc <- shiny::renderPlotly({
|
|
699
|
+ output$plot3d_qc <- plotly::renderPlotly({
|
700
|
700
|
if(ncol(pc_obj_qc()$x) >= 3){
|
701
|
701
|
PC1 <- PC2 <- PC3 <- NULL
|
702
|
702
|
df <- setNames(data.frame(pc_obj_qc()$x[,1:3]),
|