lookml_folder <- "~/development/looks/"
files <- extractFilesFromFolder(lookml_folder, full=TRUE, ext=".lookml")

DT.files <- rbindlist(lapply(files, function(filename) {
  RAW <- readLines(filename)
  count_distinct <- any(grepl("count_distinct", RAW))
  primary_key <-  any(grepl("primary_key", RAW))
  missing_pk <- count_distinct & !primary_key

  return(data.table(filename=basename(filename), count_distinct, primary_key, missing_pk))

}))

file_candidates <- DT.files[(count_distinct & primary_key), filename] %>% {files[.]}


file <- file_candidates[file]
sapply(file_candidates, function(file) {
  RAW <- readLines(file)
  strsplit(pasteC(RAW, C="\n"), "\\s+- ") %>% sapply(function(x) any(grepl("primary_key", x) & grepl("count_distinct", x)))
  # strsplit(pasteC(RAW, C="\n"), "\\s+- ") %>% sapply(function(x) {
  #   wh <- (grepl("primary_key", x) & grepl("count_distinct", x))
  #   if (!any(wh))
  #     return("")
  #   strsplit(x, "\\n")[wh] %>% sapply(head, 1)
  # })
}) %>% nwhich %>% catn(sep="\n")