tests/testthat/test_get_info.R

# Testing get_info
test_that("get_info retrieves correct PDB information", {
  skip_if_not_live_tests()
  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 March 9, 2026, 5:08 p.m.