remotes::install_git("https://git.rud.is/hrbrmstr/phcssjars.git") # or remotes::install_git("https://git.sr.ht/~hrbrmstr/phcssjars") # or remotes::install_gitlab("hrbrmstr/phcssjars") # or remotes::install_bitbucket("hrbrmstr/phcssjars") # or remotes::install_github("hrbrmstr/phcssjars")

library(rJava) library(phcssjars) packageVersion("phcssjars") ## [1] '6.2.0'

library(tidyverse) ECSSVersion <- J("com.helger.css.ECSSVersion") CSSReader <- J("com.helger.css.reader.CSSReader") css_fil <- paste0(readLines("https://www.r-project.org/css/R.css"), collapse="\n") css <- CSSReader$readFromString(css_fil, ECSSVersion$CSS30) lapply(css$getAllRules(), function(.x) { if (.jinherits(.x, "com.helger.css.decl.CSSStyleRule")) { tibble( selectors = sapply(.x$getAllSelectors(), function(.y) .y$getAsCSSString()), declarations = list(lapply(.x$getAllDeclarations(), function(.y) { property <- .y$getProperty() try( sapply(.y$getExpression()$getAllSimpleMembers(), function(.z) .z$getOptimizedValue()), silent = TRUE ) -> expressions if (inherits(expressions, "try-error")) expressions <- NA_character_ tibble( property = property, value = expressions ) })) ) } else if (.jinherits(.x, "com.helger.css.decl.CSSFontFaceRule")) { message("Font Face Rules TBD") } else if (.jinherits(.x, "com.helger.css.decl.CSSMediaRule")) { message("Media Rules TBD") } else if (.jinherits(.x, "com.helger.css.decl.CSSKeyframesRule")) { message("Keyframes Rules TBD") } else if (.jinherits(.x, "com.helger.css.decl.CSSViewportRule")) { message("Viewport Rules TBD") } }) %>% bind_rows() %>% unnest() %>% unnest() -> res res