my_extract <- define_extract_usa("Example", "us2013a", "YEAR")
extract_json_path <- file.path(tempdir(), "usa_extract.json")
save_extract_as_json(my_extract, file = extract_json_path)
copy_of_my_extract <- define_extract_from_json(extract_json_path)
identical(my_extract, copy_of_my_extract)
Run the code above in your browser using DataLab