Fix indents and invisible characters (GitHub Actions)

R/ggplot2.R

-
 #' A Plot Theme for ggplot2 by xaringanthemer
 #'
 #' @description

tests/testthat/test-helpers.R

-
 test_that("element_description", {
   text_in <- c("multiple", NA, "", ".remark-slide-content", "h1", "pre, code")
   text_out <- c(

tests/testthat/test-style_xaringan.R

-
 test_that("style_xaringan() writes to specified outfile", {
   tmpfile <- tempfile(fileext = ".css")
   expect_equal(style_xaringan(outfile = tmpfile), tmpfile)

tests/testthat/test-themes.R

-
 test_theme_file <- function(theme = "duo", theme_file = paste0(theme, ".css"), ...) {
   local_edition(2)
   on.exit(local_edition(3))

vignettes/ggplot2-themes.Rmd

   collapse = TRUE,
   warning = FALSE,
   comment = "#>",
-  fig.width = 6, 
+  fig.width = 6,
   fig.height = 4
 )
 ```
 ```{r ggplot2-demo-1, out.width = "48%", fig.show="hide"}
 library(ggplot2)
 
-g_base <- ggplot(mpg) + 
-  aes(hwy, cty) + 
+g_base <- ggplot(mpg) +
+  aes(hwy, cty) +
   geom_point() +
   labs(x = "Highway MPG", y = "City MPG", title = "Fuel Efficiency")
 
 - `header_font_google = google_font("Oleo Script")`.
 
 ```{r text demo, fig.width = 10}
-g_diamonds_with_text <- 
-  g_diamonds + 
+g_diamonds_with_text <-
+  g_diamonds +
   geom_text(aes(y = ..count.., label = format(..count.., big.mark = ",")),
-            vjust = -0.30, size = 8, stat = "count") +
+    vjust = -0.30, size = 8, stat = "count") +
   labs(x = "Cut", y = "Count")
 
 g_diamonds_with_text + theme_xaringan()
 ```{r eval=FALSE}
 font_url <- file.path(
   "https://fontlibrary.org/assets/fonts/glacial-indifference/",
-  "5f2cf277506e19ec77729122f27b1faf/0820b3c58fed35de298219f314635982", 
+  "5f2cf277506e19ec77729122f27b1faf/0820b3c58fed35de298219f314635982",
   "GlacialIndifferenceRegular.ttf"
 )