Package: bookdown

Type: Package

Title: Authoring Books and Technical Documents with R Markdown

Version: 0.45.1

Version: 0.45.2

Authors@R: c(

person("Yihui", "Xie", role = c("aut", "cre"), email = "xie@yihui.name", comment = c(ORCID = "0000-0003-0645-5666")),

person("Christophe", "Dervieux", , "cderv@posit.co", role = c("ctb"),

- Removed tests for`xfun::with_ext()` that don't belong to this package.

library(testit)

1 %==%1

assert(

'next_nearest() works',

next_nearest(c(1,4,8),1:9) %==% c(2L,5L,9L)

)

assert(

'with_ext() works',

with_ext(NULL,'a') %==%NULL,

with_ext('a',NULL) %==%'a',

with_ext('a','bcd') %==%'a.bcd',

with_ext('a.html','') %==%'a',

with_ext('a.html','tex') %==%'a.tex',

with_ext('a.html','.tex') %==%'a.tex',

with_ext(c('a','b','c'),'css') %==% c('a.css','b.css','c.css'),

with_ext(c('a.html','b','c.js'),'css') %==% c('a.css','b.css','c.css'),

with_ext(c('a.html','b','c'),'.css') %==% c('a.css','b.css','c.css'),

with_ext('a', c('css','.html')) %==% c('a.css','a.html'),

with_ext(c('a.doc','b.gz','c'), c('css','.tar','.png')) %==% c('a.css','b.tar','c.png')

)

assert(

'with_ext() signals an error when length(x) != length(ext)',

has_error(with_ext(c('a','b.css'), c('foo','bar','ham')))

)

assert('next_nearest() works', {

(next_nearest(c(1,4,8),1:9) %==% c(2L,5L,9L))

})

assert('clean_meta_tags() cleans HTML inside <meta>', {

(clean_meta_tags('<meta name="foo" content="hi text">') %==%