tests/testthat/test_get_info.R

# Testing get_info
test_that("get_info retrieves correct PDB information", {
  result <- get_info("4HHB")

  expect_type(result, "list")
  expect_true("rcsb_id" %in% names(result))
  expect_equal(result$rcsb_id, "4HHB")
})

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.