From 6d7ed2235ca35b1e5228698cebdce9f331271e6a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kirill=20M=C3=BCller?= <krlmlr+r@mailbox.org>
Date: Mon, 30 May 2022 07:44:34 +0200
Subject: [PATCH] Add filter

---
 R/learn.R | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/R/learn.R b/R/learn.R
index 6fe55f89a8..79cdf87b44 100644
--- a/R/learn.R
+++ b/R/learn.R
@@ -153,6 +153,10 @@ dm_learn_from_db_meta <- function(con, catalog = NULL, schema = NULL, name_forma
     ))) %>%
     ungroup() %>%
     select(-(1:3)) %>%
+
+    # FIXME: Where does this come from?
+    filter(!is.na(ref_table)) %>%
+
     group_by(table = ref_table) %>%
     summarize(fks = list(bind_rows(fks))) %>%
     ungroup()