tests/testthat/test_utils-rd.R

context("utils-rd")


test_that("utils-rd works as expected", {

  res <- r6_usage(AppenderFileRotating)


  res <- r6_usage(list(
    AppenderFileRotating,
    AppenderFileRotatingDate,
    AppenderFileRotatingTime
  ))

  expect_true(is.character(res))
})

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.