tests/testthat/test-paleta.R

In jpmarindiaz/paletero: Color palettes and scales.

test_that("Paleta from color vector", {

  colors <- c("#5476b0", "#b96739")

  p <- paleta(colors, type = "categorical")

  p <- paleta(colors, type = "categorical", n = 5)
  p
  p$recycle(4)
  p$recycle(14) # TODO FIX RECICLYNG
  v <- 1:3
  p$eval_categorical_pal(1:3)

  v <- c(1,1,4, 3, 5, 3)
  p$eval_categorical_pal(v)

  colors <- c("#5476b0", "#b96739")
  df <- data.frame(v = v)
  paletero(df, colors = colors)

  paletero(data.frame(a = 1), colors = colors)
  paletero(data.frame(a = 1), colors = colors, color_var_name = "..CLOS")


  paletero(data.frame(a = 1), colors = colors,
           color_dic = data.frame(v = 1, color = "#AAAAAA"))



  paleta(colors, type = "sequential", n = 10)









})



test_that("Paleta from name", {

  palettes <- available_palettes()
  palettes

  name <- "ggthemes_Traffic"
  get_colors(name)

  get_colors("ggthemes_Tableau_20")

  palette_search("excel")
  get_colors("miscpalettes_excel")

  s <- palette_search("economist")
  s
  get_colors(s)

  s <- palette_search("paletero")
  s
  get_colors(s[1])
  get_colors(s[2])

  s <- palette_search("paletero", type = "sequential")
  s
  get_colors(s[1])
  get_colors(s[2])
  get_colors(s[3])
  get_colors(s[4])

  s <- palette_search("paletero", type = "diverging")
  s
  get_colors(s[1])
  get_colors(s[2])
  get_colors(s[3])
  get_colors(s[4])


})

test_that("Paleta from name with n values", {

  # paleta from named pal
  expect_error(paleta(name = "non_existing_palette"),
               "Palette name not found. Check available_palettes()")


  # #ith n colors

  ## Categorical
  name <- "miscpalettes_excel"
  colors <- paleta(name = name, n = 5) # n < palette lenght
  colors
  # expect_equal(colors, get_colors(name = name)[1:5])
  colors <- paleta(name = name, n = 20) # n < palette lenght
  colors
  # expect_equal(length(colors), 20)
  # expect_error(paleta(name, n = 20, recycle = FALSE))

  ## Sequential

  name <- "viridis_viridis"
  get_palette(name)
  pal_cols <- get_colors(name)
  colors <- paleta(name = name, n = 5) # n < palette length
  #expect_equal(pal_cols[1], colors[1]) ## colors is Palette
  # expect_equal(pal_cols[100], colors[5])

  ## Diverging
  name <- "colorBlindness_Green2Magenta16Steps"
  get_palette(name)
  pal_cols <- get_colors(name)
  colors <- paleta(name = name, n = 5) # n < palette lenght
  # expect_equal(pal_cols[1], colors[1])
  # expect_equal(pal_cols[length(pal_cols)], colors[5])

})

test_that("Paleta from list of colors", {


  # Tries to create a palette from the given color
  name <- "blue"
  paleta(name, n = 6) # n < palette lenght, default categorical

  paleta(name, n = 5, type = "sequential")
  paleta(name, n = 5, type = "diverging")


})