| @@ -343,7 +343,7 @@ plural_element <- function(css_name) { | |||
| element_description <- function(element) { | |||
| out <- rep("", length(element)) | |||
| multiple <- grepl("multiple", element) | |||
| out[multiple] <- "Modifies multiple CSS classes or elements." | |||
| out[multiple] <- "Used in multiple CSS rules." | |||
| ifelse( | |||
| multiple | is.na(element) | element == "", | |||
| @@ -3,7 +3,7 @@ context("test-helpers") | |||
| test_that("element_description", { | |||
| text_in <- c("multiple", NA, "", ".remark-slide-content", "h1", "pre, code") | |||
| text_out <- c( | |||
| "Modifies multiple CSS classes or elements.", | |||
| "Used in multiple CSS rules.", | |||
| "", | |||
| "", | |||
| "Modifies the `.remark-slide-content` class.", | |||