#options(width = 4500)
# Install and load the rjsonpath package
library(jqr)
library(dplyr)
library(jsonlite)
library(rjsonpath)
library(gt)


filtered_documents <- jq("vent2.json", '.PRODUCTS[] | select(.productSubType == "Mineral Wool")')
#unique_productSubTypes <- jq("vent2.json", '.PRODUCTS[].productSubType' ) |> unique()

print(filtered_documents)

#print(unique_productSubTypes)