# \donttest{
# Example 1: Search for Polymer Entities from Mus musculus and Homo sapiens
search_operator <- InOperator(
attribute = "rcsb_entity_source_organism.taxonomy_lineage.name",
value = c("Mus musculus", "Homo sapiens")
)
results <- perform_search(
search_operator = search_operator,
return_type = "POLYMER_ENTITY"
)
results
# Example 2: Search for Entries Released After a Specific Date
operator_date <- ComparisonOperator(
attribute = "rcsb_accession_info.initial_release_date",
value = "2019-08-20",
comparison_type = "GREATER"
)
request_options <- list(
facets = list(
list(
name = "Methods",
aggregation_type = "terms",
attribute = "exptl.method"
)
)
)
results <- perform_search(
search_operator = operator_date,
return_type = "ENTRY",
request_options = request_options
)
results
# Example 3: Search for Symmetric Dimers with DNA-Binding Domain
operator_symbol <- ExactMatchOperator(
attribute = "rcsb_struct_symmetry.symbol",
value = "C2"
)
operator_kind <- ExactMatchOperator(
attribute = "rcsb_struct_symmetry.kind",
value = "Global Symmetry"
)
operator_full_text <- DefaultOperator(
value = "\"heat-shock transcription factor\""
)
operator_dna_count <- ComparisonOperator(
attribute = "rcsb_entry_info.polymer_entity_count_DNA",
value = 1,
comparison_type = "GREATER_OR_EQUAL"
)
query_group <- list(
type = "group",
logical_operator = "and",
nodes = list(
list(
type = "terminal",
service = "text",
parameters = operator_symbol
),
list(
type = "terminal",
service = "text",
parameters = operator_kind
),
list(
type = "terminal",
service = "full_text",
parameters = operator_full_text
),
list(
type = "terminal",
service = "text",
parameters = operator_dna_count
)
)
)
results <- perform_search(
search_operator = query_group,
return_type = "ASSEMBLY"
)
results
# }
Run the code above in your browser using DataLab