# Example 1: Fetching basic entry information
properties <- list(cell = c("length_a", "length_b", "length_c"), exptl = c("method"))
data_fetcher(
id = c("4HHB"),
data_type = "ENTRY",
properties = properties,
return_as_dataframe = TRUE
)
# Example 2: Fetching polymer entity data
properties <- list(
rcsb_entity_source_organism = c("ncbi_taxonomy_id", "ncbi_scientific_name"),
rcsb_cluster_membership = c("cluster_id", "identity")
)
data_fetcher(
id = c("4HHB_1", "12CA_1"),
data_type = "POLYMER_ENTITY",
properties = properties,
return_as_dataframe = TRUE
)
# Example 3: Fetching non-polymer entity data
properties <- list(
rcsb_nonpolymer_entity = c("details", "formula_weight", "pdbx_description"),
rcsb_nonpolymer_entity_container_identifiers = c("chem_ref_def_id")
)
data_fetcher(
id = c("3PQR_5", "3PQR_6"),
data_type = "NONPOLYMER_ENTITY",
properties = properties,
return_as_dataframe = TRUE
)
# Example 4: Fetching chemical component data
properties <- list(
rcsb_id = list(),
chem_comp = list("type", "formula_weight", "name", "formula"),
rcsb_chem_comp_info = list("initial_release_date")
)
data_fetcher(
id = c("NAG", "EBW"),
data_type = "CHEMICAL_COMPONENT",
properties = properties,
return_as_dataframe = TRUE
)
Run the code above in your browser using DataLab