Merge branch 'hotfix/fix3d'

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: scone
-Version: 0.0.8-9000
+Version: 0.0.8-9001
 Title: Single Cell Overview of Normalized Expression data
 Description: SCONE is an R package for comparing and ranking the performance of different normalization schemes for single-cell RNA-seq and other high-throughput analyses.
 Authors@R: c(person("Michael", "Cole", email = "[email protected]",
@@ -8,7 +8,7 @@ Authors@R: c(person("Michael", "Cole", email = "[email protected]",
 	          role = c("aut", "cph")))
 Author: Michael Cole [aut, cre, cph], Davide Risso [aut, cph]
 Maintainer: Michael Cole <[email protected]>
-Date: 2016-09-26
+Date: 2016-09-27
 License: file LICENSE
 Depends:
   R (>= 3.3)

R/sconeReport.R

@@ -354,7 +354,7 @@ sconeReport = function(scone_res, qc,
     output$plot3d_base <- renderPlotly({
       PC1 <- PC2 <- PC3 <- NULL
       df <- setNames(data.frame(pc_obj_base()$x[,1:3]), c("PC1", "PC2", "PC3"))
-      plot_ly(df, x = PC1, y = PC2, z = PC3, type = "scatter3d", mode = "markers",marker = list(color=pc_col() ))
+      plot_ly(df, x = ~PC1, y = ~PC2, z = ~PC3, type = "scatter3d", mode = "markers",marker = list(color=pc_col() ))
     })
 
     output$plot_select <- renderPlot({
@@ -410,7 +410,7 @@ sconeReport = function(scone_res, qc,
     output$plot3d_qc <- renderPlotly({
       PC1 <- PC2 <- PC3 <- NULL
       df <- setNames(data.frame(pc_obj_qc()$x[,1:3]), c("PC1", "PC2", "PC3"))
-      plot_ly(df, x = PC1, y = PC2, z = PC3, type = "scatter3d", mode = "markers",marker = list(color=pc_col() ))
+      plot_ly(df, x = ~PC1, y = ~PC2, z = ~PC3, type = "scatter3d", mode = "markers",marker = list(color=pc_col() ))
     })
 
     ## ------ Silhouette Tab ------
@@ -624,4 +624,4 @@ sconeReport = function(scone_res, qc,
   # Shiny App
   shinyApp(ui = ui, server = server)
 
-}
+}