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 Aug. 21, 2026, 9:16 a.m.