From 3ea55951526ec9bc09cab3d52d1aa81dfa1fa928 Mon Sep 17 00:00:00 2001
From: ambarja <antony.barja8@gmail.com>
Date: Sat, 18 Feb 2023 13:24:23 -0500
Subject: [PATCH] up

---
 DESCRIPTION      | 2 +-
 R/scale_innova.R | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 1f79470..39510e3 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -44,7 +44,6 @@ VignetteBuilder:
 Imports:
     RCurl,
     sf,
-    unikn,
     magrittr,
     dplyr,
     purrr,
@@ -68,6 +67,7 @@ Imports:
     rstudioapi
 Suggests:
     knitr,
+    unikn,
     mapview,
     rmarkdown,
     tidyverse
diff --git a/R/scale_innova.R b/R/scale_innova.R
index d866bf1..c5d77fd 100644
--- a/R/scale_innova.R
+++ b/R/scale_innova.R
@@ -230,7 +230,7 @@ scale_fill_innova <- function(palette = "ccvi", discrete = TRUE, reverse = FALSE
 #'@export show_pal
 
 show_pal <- function(name = "all",n = 5,rev = TRUE,...){
-
+  require(unikn)
   if(sum(unique(name %in% names(innova_palettes))) == 1) {
     list_names <- innova_palettes[name]
     range_color <- sapply(X = list_names,FUN = function(x){list(x[1:n])})