library(jqr) # Your JSON data as a character string json_string <- '{ "LOCATION": "1", "SYSTEM PROPERTIES": { "Property1": "ssdffd", "Property2": "dasd", "Property3": "asdas" }, "PRODUCTS": [ { "productType": "INSULATION", "productSubType": "Mineral Wool", "ref": "1", "char2": "dasd", "char3": "asdas" }, { "productType": "INSULATION", "productSubType": "Mineral Wool", "ref": "2", "char2": "dasd", "char3": "asdas" }, { "productType": "INSULATION", "productSubType": "Phenolic Foam", "ref": "1", "char2": "dasd", "char3": "asdas" }, { "productType": "INSULATION", "productSubType": "Phenolic Foam", "ref": "2", "char2": "dasd", "char3": "asdas" } ] }' #print(json_string) # Filter documents with productSubType as "Mineral Wool" #filtered_documents <- jq("vent2.json", '.PRODUCTS[] | select(.productSubType == "Mineral Wool")') #print(filtered_documents) unique_productSubTypes <- jq(json_string, '.PRODUCTS[].productSubType' ) |> unique() |> as.list() print(unique_productSubTypes[1])