tests/testthat/test-rmd.R

In renv: Project Environments

test_that("The chunk header parser works as expected", {

  cases <- list(

    # R Markdown ----
    list(
      input    = "```{r}",
      type     = "md",
      expected = list(engine = "r")
    ),

    list(
      input    = "```{r a-b-c}",
      type     = "md",
      expected = list(engine = "r", label = "a-b-c")
    ),

    list(
      input    = "```{r, a-b-c}",
      type     = "md",
      expected = list(engine = "r", label = "a-b-c")
    ),

    list(
      input    = "```{r, a-b-c, a=1+1}",
      type     = "md",
      expected = list(engine = "r", label = "a-b-c", a = quote(1 + 1))
    ),

    list(
      input    = "```{python}",
      type     = "md",
      expected = list(engine = "python")
    ),

    list(
      input    = "```{r engine = 'Rcpp'}",
      type     = "md",
      expected = list(engine = "Rcpp")
    ),

    list(
      input    = "```{r, engine = 'Rcpp'}",
      type     = "md",
      expected = list(engine = "Rcpp")
    ),

    list(
      input    = "```{r a?weird?label}",
      type     = "md",
      expected = list(engine = "r", label = "a?weird?label")
    ),

    list(
      input    = "```{r a'weird'label, engine = 'bash'}",
      type     = "md",
      expected = list(engine = "bash", label = "a'weird'label")
    ),

    list(
      input    = "```{r, 'a=weird=label', engine = 'bash'}",
      type     = "md",
      expected = list(engine = "bash", label = "a=weird=label")
    ),

    # Sweave ----
    list(
      input = "<<a-b-c>>=",
      type  = "rnw",
      expected = list(engine = "r", label = "a-b-c")
    ),

    list(
      input = "<<a-b-c, a=1, b=2>>=",
      type  = "rnw",
      expected = list(engine = "r", label = "a-b-c", a = 1, b = 2)
    )

  )

  for (case in cases) {
    output <- renv_knitr_options_header(case$input, case$type)
    expect_same_elements(output, case$expected)
  }

})

test_that("we can parse chunk YAML options", {

  cases <- list(

    list(
      input = "#| a: true",
      expected = list(a = TRUE)
    ),

    list(
      input = "#| a=TRUE",
      expected = list(a = TRUE)
    )

  )

  for (case in cases) {
    output <- renv_knitr_options_chunk(case$input)
    expect_same_elements(output, case$expected)
  }

})