Browse code

Fix bug in shiny app

Davide Risso authored on 16/10/2017 15:17:51
Showing 2 changed files

... ...
@@ -1,5 +1,5 @@
1 1
 Package: scone
2
-Version: 1.1.2
2
+Version: 1.1.2-9001
3 3
 Title: Single Cell Overview of Normalized Expression data
4 4
 Description: SCONE is an R package for comparing and ranking the performance of
5 5
 	different normalization schemes for single-cell RNA-seq and other 
... ...
@@ -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]),