tests/testthat/test-rnw.R

In r-lib/styler: Non-Invasive Pretty Printing of R Code

test_that("can style .Rnw files", {
  expect_warning(test_collection(
    "rnw", "008-outdec",
    transformer = transform_mixed,
    transformer_fun = style_text,
    filetype = "Rnw",
    write_tree = FALSE
  ), NA)
  expect_warning(test_collection(
    "rnw", "011-conditional-eval",
    transformer = transform_mixed,
    transformer_fun = style_text,
    filetype = "Rnw",
    write_tree = FALSE
  ), NA)
})