tests/testthat/test-hello.R

library(testthat)
library(clintrialx)

test_that("hello function works correctly", {
  output <- hello()
  expect_equal(output, "Welcome to ClinTrialX!")
})

Try the clintrialx package in your browser

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

clintrialx documentation built on April 3, 2025, 6:47 p.m.