---
output: github_document
---

<!-- README.md is generated from README.Rmd. Please edit that file -->

```{r, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>", 
  echo = FALSE, 
  warning = FALSE, message = FALSE,
  fig.path = "docs/"
)
```

# RStudio Themes

<!-- badges: start -->
<!-- badges: end -->

`rstudio-scss` provides SCSS/SASS templates for full RStudio themes for RStudio version 1.2 (and possibly RStudio 1.2+).

## Palettes

```{r palettes, echo=FALSE, results="asis", fig.width=10, fig.height=4}
library(ggplot2)
source("R/make_functions.R")
source("R/show_colors.R")

themes <- list(
  "Solarized" = "_solarized.scss", 
  "Nord" = "_nord.scss", 
  "Oceanic Plus" = "_oceanic-plus.scss",
  "One Light" = "_one-light.scss"
)

for (theme in names(themes)) {
  theme_file <- fs::path("src", "palettes", themes[[theme]])
  colors <- read_colors(theme_file)
  g <- show_colors(colors, ncol = 8) +
    ggtitle(theme) +
    coord_equal() +
    theme(
      plot.title = element_text(size = rel(2), hjust = 0.5, margin = margin(t = 20, b = 10))
    )
  print(g)
}
```