queries1 <- httpdf %>% filter(str_detect(payload, paste(c("create", "drop", "select"),collapse = '|')))