---
title: "Customizing Cards"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{Customizing Cards}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

```{r, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
```

## Colors

### Background color

```{r bg-color, eval=FALSE}
library(cardargus)

# Orange card
card_orange <- svg_card(title = "ALERT", bg_color = "#fab255", ...)

# Blue card
card_blue <- svg_card(title = "INFO", bg_color = "#3498db", ...)
 
# Green card
card_green <- svg_card(title = "SUCCESS", bg_color = "#2ecc71", ...)

# Red card
card_red <- svg_card(title = "URGENT", bg_color = "#e74c3c", ...)

# Dark card
card_dark <- svg_card(title = "PREMIUM", bg_color = "#2c3e50", ...)
```

### Text colors

```{r text-colors, eval=FALSE}
card <- svg_card(
  title = "MY CARD",
  title_color = "#FFD700",      # Gold title
  label_color = "#E0E0E0",      # Light gray labels
  footer_color = "white",       # White footer
  value_text_color = "#212529", # Dark gray values
  value_bg_color = "#f8f8ff",   # Field background
  ...
)
```

## Fonts

cardargus uses Google Fonts by default. The default font is "Jost", but you can use any Google Font:

```{r fonts, eval=FALSE}
# Using Roboto
card <- svg_card(
  title = "CARD",
  font = "Roboto",
  ...
)

# Using Open Sans
card <- svg_card(
  title = "CARD",
  font = "Open Sans",
  ...
)

# Using Montserrat
card <- svg_card(
  title = "CARD",
  font = "Montserrat",
  ...
)
```

## Font sizes

```{r font-sizes, eval=FALSE}
card <- svg_card(
  title = "CARD",
  title_fontsize = 32,    # Larger title
  label_fontsize = 12,    # Labels
  value_fontsize = 11,    # Values
  footer_fontsize = 8,    # Footer
  ...
)
```

## Dimensions

### Card width

```{r width, eval=FALSE}
# Narrow card
card_narrow <- svg_card(width = 400, ...)

# Default card
card_default <- svg_card(width = 500, ...)

# Wide card
card_wide <- svg_card(width = 600, ...)
```

### Padding and corners

```{r padding, eval=FALSE}
card <- svg_card(
  padding = 25,         # Internal padding
  corner_radius = 12,   # More rounded corners
  ...
)
```

## Custom footer

```{r footer, eval=FALSE}
# With automatic timestamp
card <- svg_card(
  footer = NULL,  # Uses automatic timestamp
  ...
)

# With custom text
card <- svg_card(
  footer = "Source: Housing Dept. - Updated January 2026",
  ...
)

# Without footer
card <- svg_card(
  footer = "",
  ...
)
```

## Custom logos

```{r logos, eval=FALSE}
# Without logos
card <- svg_card(
  logos = list(),
  ...
)

# With file paths
card <- svg_card(
  logos = c("path/to/logo1.svg", "path/to/logo2.svg"),
  logos_height = 40,
  ...
)

# With bundled logos
card <- svg_card(
  logos = c(get_svg_path("morar_bem.svg")),
  logos_height = 40,
  bottom_logos = c(get_svg_path("gov_pe3.svg")),
  bottom_logos_height = 35,
  ...
)
```

## Complete example

```{r complete, eval=FALSE}
card <- svg_card(
  title = "HOUSING PROGRAM",
  badges_data = list(
    list(label = "Units", value = "1,000", color = "white"),
    list(label = "Investment", value = "$100M", color = "#4CAF50")
  ),
  fields = list(
    list(list(label = "Project", value = "Downtown Development", with_icon = TRUE)),
    list(
      list(label = "City", value = "Boston"),
      list(label = "State", value = "MA")
    )
  ),
  bg_color = "#2c3e50",
  width = 550,
  padding = 25,
  corner_radius = 12,
  font = "Roboto",
  title_fontsize = 24,
  title_color = "#ecf0f1",
  label_color = "#bdc3c7",
  footer = "Real-time updated data",
  footer_color = "#95a5a6"
)
```

## Displaying in documents

```{r display, eval=FALSE}
# In R Markdown or Quarto
include_card(card)

# Or as PNG for better compatibility
include_card_png(card, dpi = 150)
```