css

css eases the manipulation of css files with the functions read_css and write_css.

Installation

You can install css from github with:

# install.packages("devtools")
devtools::install_github("romainfrancois/css")

Example

# one rstudio css theme
dracula <- paste0(
  "https://raw.githubusercontent.com/rstudio/rstudio/", 
  "0d9d49aa8671527370c6c261fc031ae8a8081c45/src/gwt/src/",   
  "org/rstudio/studio/client/workbench/views/source/editors/text/themes/dracula.css"
)

# reading it with read_css
data <- read_css(dracula)

# ... now it's a tibble ... 
glimpse(data)
#> Observations: 626
#> Variables: 3
#> $ rule     <chr> ".ace_gutter ", ".ace_gutter ", ".ace_print-margin ",...
#> $ property <chr> "background", "color", "width", "background", "backgr...
#> $ value    <chr> "#282a36", "rgb(144,145,148)", "1px", "#e8e8e8", "#28...
DT::datatable(data)

You can then tidyverse it a bit and then save it back to a file using write_css:

data <- data %>% 
  mutate( value = case_when(
    property == "background-color" ~ "#ff0000", 
    TRUE                           ~ value
  ))

tf <- tempfile()
write_css(data, tf)
writeLines( read_lines(tf, n_max = 10))
#> .ace_bracket  { 
#>    margin: 0 !important ; 
#>    border: 0 !important ; 
#>    background-color: #ff0000 ; 
#>    margin: 0 !important ; 
#>    border: 0 !important ; 
#>    background-color: #ff0000 ;  
#>  }
#> .ace_comment  { 
#>    color: #6272a4 ;