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