tests/testthat/test-list2df_linter.R

In r-lib/lintr: A 'Linter' for R Code

test_that("list2df_linter skips allowed usages", {
  linter <- list2df_linter()

  expect_no_lint("cbind.data.frame(x, x)", linter)
  expect_no_lint("do.call(mean, x)", linter)
  expect_no_lint("do.call('c', x)", linter)

  # Other cbind methods
  expect_no_lint("do.call(cbind, x)", linter)

  # Anonymous function
  expect_no_lint("do.call(function(x) x, l)", linter)
})

test_that("list2df_linter blocks simple disallowed usages", {
  linter <- list2df_linter()
  lint_message <- rex::rex("use `data.frame(lst)`")

  expect_lint("do.call(cbind.data.frame, x)", lint_message, linter)
  expect_lint("do.call('cbind.data.frame', x)", lint_message, linter)
})

test_that("lints vectorize", {
  lint_message <- rex::rex("use `data.frame(lst)`")

  expect_lint(
    trim_some("{
      cbind(a, b)
      do.call(cbind.data.frame, x)
      do.call(function(x) x, l)
      do.call('cbind.data.frame', y)
    }"),
    list(
      list(lint_message, line_number = 3L, column_number = 3L),
      list(lint_message, line_number = 5L, column_number = 3L)
    ),
    list2df_linter()
  )
})