# NOT RUN {
hc <- highcharts_demo()
hc
thm <- hc_theme(
colors = c("red", "green", "blue"),
chart = list(
backgroundColor = "#15C0DE"
),
title = list(
style = list(
color = "#333333",
fontFamily = "Erica One"
)
),
subtitle = list(
style = list(
color = "#666666",
fontFamily = "Shadows Into Light"
)
),
legend = list(
itemStyle = list(
fontFamily = "Tangerine",
color = "black"
),
itemHoverStyle = list(
color = "gray"
)
)
)
hc_add_theme(hc, thm)
# }
Run the code above in your browser using DataLab