Extract Database Code from CIF Content

Extracts the database code identifier (e.g., from _database_code_) from the CIF.

Usage

extract_database_code(cif_content)

Arguments

cif_content

A data.table containing the lines of a CIF file.

Value

A character string of the database code, or NA if not found.

See also

Other extractors: extract_atomic_coordinates(), extract_chemical_formula(), extract_space_group_name(), extract_space_group_number(), extract_structure_type(), extract_symmetry_operations(), extract_unit_cell_metrics()

Examples

cif_path <- system.file("extdata", "1590946.cif", package = "crystract")
if (file.exists(cif_path)) {
  cif_content <- read_cif_files(cif_path)[[1]]
  extract_database_code(cif_content)
}
#> [1] "depnum_ccdc_archive CCDC 1590946"