diff --git a/DESCRIPTION b/DESCRIPTION index 51c3aa8..7b5d600 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: spicyR Type: Package Title: Spatial analysis of in situ cytometry data -Version: 1.17.7 +Version: 1.17.8 Authors@R: c( person("Nicolas", "Canete", , "nicolas.canete@sydney.edu.au", role = "aut"), person("Ellis", "Patrick", , "ellis.patrick@sydney.edu.au", role = c("aut", "cre")), diff --git a/R/signifPlot.R b/R/signifPlot.R index e258a2a..3eaabcf 100644 --- a/R/signifPlot.R +++ b/R/signifPlot.R @@ -204,7 +204,7 @@ draw_key_half_circle = function(data, params, shape) { - +#' @import ggthemes bubblePlot <- function(test, fdr, breaks, @@ -384,10 +384,10 @@ bubblePlot <- function(test, if(isTRUE(test$isKontextual)) { if(is.null(contextColours)) { # Defining colour palette for Context - palette = ggthemes_data$tableau$`color-palettes`$regular$`Tableau 10`$value + palette = ggthemes::ggthemes_data$tableau$`color-palettes`$regular$`Tableau 10`$value if (length(unique(df$parent)) > 10) { - palette = ggthemes_data$tableau$`color-palettes`$regular$`Tableau 20`$value + palette = ggthemes::ggthemes_data$tableau$`color-palettes`$regular$`Tableau 20`$value } contextColours = palette[1:length(unique(df$parent))] @@ -465,10 +465,10 @@ survBubble = function(result, if(is.null(contextColours)) { # Defining colour palette for Context - palette = ggthemes_data$tableau$`color-palettes`$regular$`Tableau 10`$value + palette = ggthemes::ggthemes_data$tableau$`color-palettes`$regular$`Tableau 10`$value if (length(unique(plotData$parent)) > 10) { - palette = ggthemes_data$tableau$`color-palettes`$regular$`Tableau 20`$value + palette = ggthemes::ggthemes_data$tableau$`color-palettes`$regular$`Tableau 20`$value } contextColours = palette[1:length(unique(plotData$parent))]