Для тестирования с помощью HttpClientModule есть специальный модуль в Angular: HttpClientTestingModule. Это позволяет вам издеваться над этим HttpClientModule, не делая реального Http-Call. Вы должны импортировать этот модуль в тест. Надеюсь, что это поможет.
Есть несколько пакетов, которые могут это сделать. Мне лично нравится cuttlefish
:
# devtools::install_github("jcbain/cuttlefish")
colours_vector <- cuttlefish::create_palette("example.jpg", n = 32)
Вот краткий пример использования Моны Лизы в качестве источника для нашей палитры:
library(ggplot2)
mona_lisa <-
"https://upload.wikimedia.org/wikipedia/commons/thumb/e/ec/Mona_Lisa%2C_by_Leonardo_da_Vinci%2C_from_C2RMF_retouched.jpg/800px-Mona_Lisa%2C_by_Leonardo_da_Vinci%2C_from_C2RMF_retouched.jpg"
colours_vector_mlisa <- cuttlefish::create_palette(mona_lisa, n = 7)
ggplot(mpg, aes(displ, hwy, colour = class)) +
geom_point() +
scale_color_manual(values = colours_vector_mlisa)