get_xg3(): try deleting already existing temporary table *

Relates to tidyverse/dbplyr#258 (comment)
inbo · Jun 25, 2019 · 6ecca1d · 6ecca1d
1 parent 8fa33b0
commit 6ecca1d
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -13,6 +13,7 @@ importFrom(dplyr,arrange)
 importFrom(dplyr,collect)
 importFrom(dplyr,contains)
 importFrom(dplyr,copy_to)
+importFrom(dplyr,db_drop_table)
 importFrom(dplyr,distinct)
 importFrom(dplyr,filter)
 importFrom(dplyr,left_join)

diff --git a/R/get.R b/R/get.R
@@ -382,6 +382,9 @@ get_xg3 <- function(locs,
             locs %>%
             distinct(loc_code)
 
+        try(db_drop_table(con, "##locs"),
+            silent = TRUE)
+
         locs <-
             copy_to(con,
                     locs) %>%