tests/testthat/test_ScoredResult.R

# Testing ScoredResult
test_that("ScoredResult returns correct structure", {
  entity_id <- "4HHB"
  score <- 95.5
  result <- ScoredResult(entity_id, score)
  expect_equal(result$entity_id, entity_id)
  expect_equal(result$score, score)
})

Try the rPDBapi package in your browser

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

rPDBapi documentation built on Oct. 19, 2024, 5:08 p.m.