From 0db504eaffc0de782afbcc246a6e3f39aa3710b0 Mon Sep 17 00:00:00 2001 From: mbcole Date: Tue, 27 Sep 2016 17:10:23 -0700 Subject: [PATCH] Hot Fix: 3D Plotting Bug --- DESCRIPTION | 4 ++-- R/sconeReport.R | 6 +++--- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 7c7423f..64f2830 100644 --- a/DESCRIPTION +++ b/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 = "mbeloc@gmail.com", @@ -8,7 +8,7 @@ Authors@R: c(person("Michael", "Cole", email = "mbeloc@gmail.com", role = c("aut", "cph"))) Author: Michael Cole [aut, cre, cph], Davide Risso [aut, cph] Maintainer: Michael Cole -Date: 2016-09-26 +Date: 2016-09-27 License: file LICENSE Depends: R (>= 3.3) diff --git a/R/sconeReport.R b/R/sconeReport.R index 05bdf1e..b75fb10 100644 --- a/R/sconeReport.R +++ b/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) -} \ No newline at end of file +}