tests/testthat/test-Newlabels.R

# Ensure the label makes its way to new label set
test_that("The set label exists in the new object", {
  expect_equal("Treatment options" %in% Newlabels(prostate.crr, labels = c(TX = "Treatment options"))$cph.f$Design$label, TRUE)
})

Try the QHScrnomo package in your browser

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

QHScrnomo documentation built on May 29, 2024, 9:21 a.m.