From 9b96fe835c80bc949e825ecb69ed97b6e8e4840d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kirill=20M=C3=BCller?= <kirill@cynkra.com>
Date: Mon, 9 Oct 2023 17:04:17 +0200
Subject: [PATCH] Also reset PKs

---
 R/db-interface.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/R/db-interface.R b/R/db-interface.R
index 3e82ecc67c..2a31c2283b 100644
--- a/R/db-interface.R
+++ b/R/db-interface.R
@@ -167,6 +167,8 @@ copy_dm_to <- function(
     dm_for_sql <- dm
   } else {
     def_no_keys <- dm_get_def(dm)
+    # FIXME: Add test
+    def_no_keys$pks[] <- list(new_pk())
     def_no_keys$uks[] <- list(new_uk())
     def_no_keys$fks[] <- list(new_fk())
     # Must keep primary keys