#' social_palette
#'
#' Palette with colors taken from social media logos
#'
#' @export
social_palette <- c(
"#FB3958",
"#FFC838",
"#6DC993",
"#458EFF",
"#DED1C1",
"#8134AF",
"#CCCCFF",
"#AAD450",
"#9B6954",
"#DD4B39",
"#128C7E",
"#F58529",
"#007BB6",
"#EA4C89",
"#00ACED",
"#BB0000",
"#9E9E9E",
"#FEDA77",
"#515BD4",
"#9146FF",
"#34526F",
"#C32AA3",
"#DCF8C6",
"#1ED760",
"#A6B1B7",
"#00A7CE",
"#F94877",
"#7289DA",
"#F40083"
)
#' boolean_palette
#'
#' Red/grey palette named vector for boolean variables
#'
#' @export
boolean_palette <- c(`TRUE` = "red", `FALSE` = "grey")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.