如何使用特定的行来过滤行Type，这些行位于父表或 a 的任何嵌套表中reactable，crosstalk::filter_checkbox如下所示？
dat <- structure(list(Manufacturer = c(
"Acura", "Acura", "Audi", "Audi",
"BMW", "Buick", "Buick", "Buick", "Buick", "Cadillac", "Cadillac",
"Chevrolet", "Chevrolet", "Chevrolet", "Chevrolet", "Chevrolet",
"Chevrolet", "Chevrolet", "Chevrolet", "Chrysler", "Chrysler",
"Chrysler", "Dodge", "Dodge", "Dodge", "Dodge", "Dodge", "Dodge",
"Eagle", "Eagle", "Ford", "Ford", "Ford", "Ford", "Ford", "Ford",
"Ford", "Ford", "Geo", "Geo", "Honda", "Honda", "Honda", "Hyundai",
"Hyundai", "Hyundai", "Hyundai", "Infiniti", "Lexus", "Lexus",
"Lincoln", "Lincoln", "Mazda", "Mazda", "Mazda", "Mazda", "Mazda",
"Mercedes-Benz", "Mercedes-Benz", "Mercury", "Mercury", "Mitsubishi",
"Mitsubishi", "Nissan", …