Merge pull request #31 from DCEW/exportpalettefcn

nhs-r-community · Jul 17, 2023 · 527803a · 527803a
2 parents f5518f6 + 944ffdc
commit 527803a
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -17,7 +17,7 @@ License: MIT + file LICENSE
 Encoding: UTF-8
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.1.2
+RoxygenNote: 7.2.3
 Imports:
   dplyr (>= 0.8.0),
   ggplot2 (>= 3.1.0),

diff --git a/NAMESPACE b/NAMESPACE
@@ -2,6 +2,7 @@
 
 export(get_nhs_colour_tints)
 export(get_nhs_colours)
+export(get_nhs_palette)
 export(scale_colour_nhs)
 export(scale_fill_nhs)
 export(show_nhs_theme_colour_tints)

diff --git a/R/get_nhs_palette.R b/R/get_nhs_palette.R
@@ -5,6 +5,7 @@
 #' @param ... Additional arguments to pass to colorRampPalette()
 #'
 #' @importFrom grDevices colorRampPalette
+#' @export
 get_nhs_palette <- function(palette = "main", reverse = FALSE, ...) {
   if (palette == "main") {
     pal <- get_nhs_colours("Blue", "Purple", "Red", "Orange", "Green")
@@ -16,3 +17,4 @@ get_nhs_palette <- function(palette = "main", reverse = FALSE, ...) {
 
   colorRampPalette(pal, ...)
 }
+