R/UI_colorsandstyling.R

In sustainablefarms/farm_biodiversity_app: An App Predicting Bird Biodiversity on Farms

appcolors <- c("Dark Green" = "#026666",
  "Navy Blue" = "#11113D",
  "Bright Blue" = "#168BCB",
  "Golden Wheat" = "#CC9C2E",
  "Yellow" = "#FDDD00",
  "Dark Gray" = "#3B4042",
  "Black" = "#1E2326",
  "Green 10" = "#E6F0F0",
  "Green 50" = "#80B2B3"
)


apptheme <- function(){
  theme <- bslib::bs_theme(version = 5, "lumen",
		"btn-focus-box-shadow" = "none",
		"btn-box-shadow" = "none",
		"btn-close-color" = appcolors[["Dark Green"]],
		"spacer" = "1rem",
		"spacers" = "(
  0: 0,
  1: $spacer * .25,
  2: $spacer * .5,
  3: $spacer,
  4: $spacer * 1.5,
  5: $spacer * 3,
  6: $spacer * 6,
  7: $spacer * 12,
);",
                "card-border-radius" = "0",
                "accordion-button-color" = appcolors[["Dark Green"]],
                "accordion-button-active-bg" = "#FFFFFF",
                "accordion-border-color" = appcolors[["Green 50"]],
                "primary" = appcolors[["Dark Green"]],
		"secondary" = appcolors[["Green 10"]],
                "dark" = appcolors[["Dark Gray"]])
  colordfns <- list(
    "primary" = appcolors[["Dark Green"]],
    "dark" = appcolors[["Dark Gray"]],
    "brightblue" = appcolors[["Bright Blue"]],
    "black" = appcolors[["Black"]],
    "green10" = appcolors[["Green 10"]]
  )
  theme <- do.call(bslib::bs_add_variables, args = c(list(theme = theme), colordfns)) %>%
      bslib::bs_add_rules(sass::sass_file("./www/base.scss"))
  theme
}

compilecss <- function(){
  colordfns <- list(
    "primary" = appcolors[["Dark Green"]],
    "dark" = appcolors[["Dark Gray"]],
    "brightblue" = appcolors[["Bright Blue"]],
    "black" = appcolors[["Black"]],
    "green10" = appcolors[["Green 10"]]
  )
  accvars <- list(
    "accordion-button-active-icon" = 
      paste0("url(\"data:image/svg+xml,%3csvg xmlns='http://www.w3.org/2000/svg' viewBox='0 0 512 512' fill='",
             appcolors[["Dark Green"]],
             "'%3e%3cpath fill-rule='evenodd' d='M497.9 74.16l-60.09-60.1c-18.75-18.75-49.19-18.75-67.93 0L313.4 70.61l127.1 128l56.56-56.55C516.7 123.3 516.7 92.91 497.9 74.16zM31.04 352.1c-2.234 2.234-3.756 5.078-4.377 8.176l-26.34 131.7C-1.703 502.1 6.156 512 15.95 512c1.049 0 2.117-.1035 3.199-.3203l131.7-26.34c3.098-.6191 5.941-2.141 8.176-4.373l259.7-259.7l-128-128L31.04 352.1zM131.9 440.2l-75.14 15.03l15.03-75.15L96 355.9V416h60.12L131.9 440.2z'/%3e%3c/svg%3e\")"
      ),
    "accordion-button-icon" = 
      paste0("url(\"data:image/svg+xml,%3csvg xmlns='http://www.w3.org/2000/svg' viewBox='0 0 512 512' fill='",
             appcolors[["Dark Green"]],
             "'%3e%3cpath fill-rule='evenodd' d='M497.9 74.16l-60.09-60.1c-18.75-18.75-49.19-18.75-67.93 0L313.4 70.61l127.1 128l56.56-56.55C516.7 123.3 516.7 92.91 497.9 74.16zM31.04 352.1c-2.234 2.234-3.756 5.078-4.377 8.176l-26.34 131.7C-1.703 502.1 6.156 512 15.95 512c1.049 0 2.117-.1035 3.199-.3203l131.7-26.34c3.098-.6191 5.941-2.141 8.176-4.373l259.7-259.7l-128-128L31.04 352.1zM131.9 440.2l-75.14 15.03l15.03-75.15L96 355.9V416h60.12L131.9 440.2z'/%3e%3c/svg%3e\")"
      ),
    "accordion-icon-transform" = "none")
  
  acccss <- sass::sass(
    input = c(
      colordfns,
      accvars,
      list(sass::sass_file("./www/_accordion.scss"))
    )
  )
  return(acccss)
}