Extract Space Group Name from CIF Content
extract_space_group_name.RdExtracts the Hermann-Mauguin space group name (e.g., from _space_group_name_H-M_alt).
Examples
cif_path <- system.file("extdata", "1590946.cif", package = "crystract")
if (file.exists(cif_path)) {
cif_content <- read_cif_files(cif_path)[[1]]
extract_space_group_name(cif_content)
}
#> [1] "P n m a"