library(tibble)
library(dplyr)
library(ggplot2)


tb <- tibble(
  x = letters[1:9],
  y = 1:9
)

tb %>%
  ggplot(aes(x, y, color = x)) +
  geom_point()

library(ggthemr)
ggthemr("dust")
ggthemr_reset()


# does not work
tb %>%
  ggplot(aes(x, y, color = x)) +
  geom_point()
# Error: Your data requires 9 colours but the swatch provided by ggthemr only has 8. To resolve this you can provide an appropriate 
# vector of colours to your scale or expand the swatch using set_swatch(). Note: if you are using a custom palette, the first swatch colour 
# is separate from the others. See the documentation for define_palette() and/or set_swatch()

pacman::p_unload("ggthemr")

tb %>%
  ggplot(aes(x, y, color = x)) +
  geom_point()
# Error: Your data requires 9 colours but the swatch provided by ggthemr only has 8. To resolve this you can provide an appropriate 
# vector of colours to your scale or expand the swatch using set_swatch(). Note: if you are using a custom palette, the first swatch colour 
# is separate from the others. See the documentation for define_palette() and/or set_swatch()