tests/smartypants.R

mkd <- paste(names(litedown:::pants), collapse = ' ')
stopifnot(litedown:::smartypants(mkd) == '&frac12; &frac13; &frac23; &frac14; &frac34; &frac15; &frac25; &frac35; &frac45; &frac16; &frac56; &frac18; &frac38; &frac58; &frac78; &#8528; &#8529; &#8530; &copy; &reg; &trade;')

Try the litedown package in your browser

Any scripts or data that you put into this service are public.

litedown documentation built on Oct. 17, 2024, 1:06 a.m.