Sfoglia il codice sorgente

Update element description when modifying multiple rules

tags/v0.3.0
Garrick Aden-Buie 6 anni fa
parent
commit
dd7eef0249
2 ha cambiato i file con 2 aggiunte e 2 eliminazioni
  1. +1
    -1
      R/theme_settings.R
  2. +1
    -1
      tests/testthat/test-helpers.R

+ 1
- 1
R/theme_settings.R Vedi File

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 == "",

+ 1
- 1
tests/testthat/test-helpers.R Vedi File

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.",

Loading…
Annulla
Salva