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])