Nothing
tests/testthat/test-detect_html_lang.R
In accessrmd: Improving the Accessibility of 'rmarkdown' Documents
with(globalenv(), {
.old_wd <- setwd(tempdir())
})
# deps --------------------------------------------------------------------
html_file <- tempfile()
file.create(html_file)
writeLines(
'<!DOCTYPE html>
<html lang="en">
<header>
</header>
<body>
</body>
</html>',
con = html_file
)
yaml_file <- tempfile()
file.create(yaml_file)
writeLines(
'---
title: "Untitled"
author: "Richard Leyshon"
date: "12/07/2021"
output:
html_document:
lang: "en"
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
## R Markdown',
con = yaml_file
)
no_lang <- tempfile()
file.create(no_lang)
writeLines(
'---
title: "Untitled"
author: "Richard Leyshon"
date: "12/07/2021"
output: html_document
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
## R Markdown',
con = no_lang
)
# invalid lang value
invalid_lang <- tempfile()
file.create(invalid_lang)
writeLines(
'---
title: "Untitled"
author: "Richard Leyshon"
date: "12/07/2021"
output:
html_document:
lang: "em"
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
## R Markdown',
con = invalid_lang
)
# tests -------------------------------------------------------------------
test_that("Func returns found lang", {
expect_identical(detect_html_lang(readLines(html_file)), "en")
expect_identical(detect_html_lang(readLines(yaml_file)), "en")
})
test_that("Func errors as expected", {
expect_error(detect_html_lang(readLines(no_lang)), "No lang value found.")
expect_error(
detect_html_lang(readLines(invalid_lang)),
"lang value is invalid. Please specify a valid lang value."
)
})
with(globalenv(), {
setwd(.old_wd)
})
Try the accessrmd package in your browser
Any scripts or data that you put into this service are public.
accessrmd documentation built on May 3, 2022, 5:07 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
with(globalenv(), {
.old_wd <- setwd(tempdir())
})
# deps --------------------------------------------------------------------
html_file <- tempfile()
file.create(html_file)
writeLines(
'<!DOCTYPE html>
<html lang="en">
<header>
</header>
<body>
</body>
</html>',
con = html_file
)
yaml_file <- tempfile()
file.create(yaml_file)
writeLines(
'---
title: "Untitled"
author: "Richard Leyshon"
date: "12/07/2021"
output:
html_document:
lang: "en"
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
## R Markdown',
con = yaml_file
)
no_lang <- tempfile()
file.create(no_lang)
writeLines(
'---
title: "Untitled"
author: "Richard Leyshon"
date: "12/07/2021"
output: html_document
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
## R Markdown',
con = no_lang
)
# invalid lang value
invalid_lang <- tempfile()
file.create(invalid_lang)
writeLines(
'---
title: "Untitled"
author: "Richard Leyshon"
date: "12/07/2021"
output:
html_document:
lang: "em"
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
## R Markdown',
con = invalid_lang
)
# tests -------------------------------------------------------------------
test_that("Func returns found lang", {
expect_identical(detect_html_lang(readLines(html_file)), "en")
expect_identical(detect_html_lang(readLines(yaml_file)), "en")
})
test_that("Func errors as expected", {
expect_error(detect_html_lang(readLines(no_lang)), "No lang value found.")
expect_error(
detect_html_lang(readLines(invalid_lang)),
"lang value is invalid. Please specify a valid lang value."
)
})
with(globalenv(), {
setwd(.old_wd)
})
Try the accessrmd package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.