small optimization on final rgb drawing

R/create_palette.R

@@ -10,7 +10,8 @@
 #' create_palette("data/nascita_venere.jpg",number_of_colors = 20)
 #' @export
 create_palette <- function(image_path = NA, number_of_colors = 20){
-  if (is.na(image_path)){stop("you must provide a jpg image to build your palette from")}
+
+  if (is.na(image_path)){stop("you must provide a jpg image to create your palette from")}
   painting     <- readJPEG(image_path)
   dimension    <- dim(painting)
   painting_rgb <- data.frame(
@@ -21,8 +22,7 @@ create_palette <- function(image_path = NA, number_of_colors = 20){
     B = as.vector(painting[,,3])
   )
   k_means        <- kmeans(painting_rgb[,c("R","G","B")], centers = number_of_colors, iter.max = 30)
-  colours_k      <- rgb(k_means$centers[k_means$cluster,])
-  colours_vector <- unique(colours_k)
+  colours_vector <- rgb(k_means$centers)
   show_col(colours_vector)
   return(colours_vector)
 }