Почему хром не запускает этот JavaScript

Вы можете filter bill_id непосредственно поднастроить его

library(dplyr)
dat_subset1 <- dat %>% filter(bill_id %in% unique(bill_id[product == "A"]))

identical(dat_subset, dat_subset1) 
#[1] TRUE

. Это также будет работать без unique, но лучше сохранить список коротким.