Civilytics/civilyticsR
3
0
Fork 0
Code Issues 8 Pull Requests Actions Packages Projects Releases Wiki Activity

fix: address review round 1 for #7

Browse Source
This commit is contained in:
kodor
2026-07-04 23:36:46 -04:00
parent fc9383555d
commit 0d523c83de
2 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
R/theme.R
+3
View File
@@ -87,6 +87,9 @@
#' ggplot(mpg, aes(displ, hwy)) + #' ggplot(mpg, aes(displ, hwy)) +
#' geom_point() + #' geom_point() +
#' theme_civilytics(font_size = 18) #' theme_civilytics(font_size = 18)
#'
#' # Note: for fully-transparent PNGs, also set a transparent device
#' # background (e.g. `ggsave("plot.png", bg = NA)`).
#' } #' }
theme_civilytics <- function( theme_civilytics <- function(
font_size = 14, font_size = 14,
tests/testthat/test_theme.R
+1
View File
@@ -137,6 +137,7 @@ test_that("theme_civilytics has transparent background by default", {
th <- theme_civilytics() th <- theme_civilytics()
expect_true(is.na(th$plot.background$fill)) expect_true(is.na(th$plot.background$fill))
expect_true(is.na(th$panel.background$fill)) expect_true(is.na(th$panel.background$fill))
expect_null(th$legend.background$fill)
}) })
test_that("theme_civilytics paper_bg=TRUE opt-in fills with cream", { test_that("theme_civilytics paper_bg=TRUE opt-in fills with cream", {