Add ggthemes import

SydneyBioX · Oct 25, 2024 · 1560c42 · 1560c42
1 parent 80db1da
commit 1560c42
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git 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", , "[email protected]", role = "aut"),
     person("Ellis", "Patrick", , "[email protected]", role = c("aut", "cre")),

diff --git 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))]