tests/testthat/test_logger_index.R

context("logger_index")


test_that("logger_index works as expected", {

  remove_all_loggers()
  on.exit(remove_all_loggers())

  get_logger("tree/leaf")
  get_logger("shrub/leaf")
  get_logger("plant/shrub/leaf")

  expect_identical(nrow(logger_index()), 8L)
})

Try the lgr package in your browser

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

lgr documentation built on Sept. 6, 2022, 1:05 a.m.