css eases the manipulation of css files with the functions read_css and write_css.
You can install css from github with:
# install.packages("devtools")
devtools::install_github("romainfrancois/css")# 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 ;