q <- structure(
list(
initial = pc_request(identifier = 2244, offline = TRUE),
listkey = NULL,
domain = "compound",
operation = NULL,
output = "JSON",
options = NULL
),
class = "PubChemAsyncQuery"
)
out <- pc_collect(q)
inherits(out, "PubChemResult")
Run the code above in your browser using DataLab