dbExecute(immediate = TRUE) after dbAppendTable() fails

[krlmlr]

The problem shows after 4e90a00.

library(RPostgres)

con <- postgresDefault()
dbCreateTable(con, "test", data.frame(a = integer()), temporary = TRUE)
dbAppendTable(con, "test", data.frame(a = 1:3), copy = TRUE)
#> [1] 3
Sys.sleep(1)
dbExecute(con, "DROP TABLE pg_temp.test", immediate = TRUE)
#> Error: Failed to send query: another command is already in progress

^{Created on 2021-12-21 by the reprex package (v2.0.1)}

Non-failures:

library(RPostgres)

con <- postgresDefault()
dbCreateTable(con, "test", data.frame(a = integer()), temporary = TRUE)
dbAppendTable(con, "test", data.frame(a = 1:3), copy = FALSE)
#> [1] 3
dbExecute(con, "DROP TABLE pg_temp.test", immediate = TRUE)
#> [1] 0

^{Created on 2021-12-21 by the reprex package (v2.0.1)}

library(RPostgres)

con <- postgresDefault()
dbCreateTable(con, "test", data.frame(a = integer()), temporary = TRUE)
dbExecute(con, "DROP TABLE pg_temp.test", immediate = TRUE)
#> [1] 0

^{Created on 2021-12-21 by the reprex package (v2.0.1)}

library(RPostgres)

con <- postgresDefault()
dbCreateTable(con, "test", data.frame(a = integer()), temporary = TRUE)
dbAppendTable(con, "test", data.frame(a = 1:3))
#> [1] 3
dbExecute(con, "DROP TABLE pg_temp.test")
#> [1] 0

^{Created on 2021-12-21 by the reprex package (v2.0.1)}

[github-actions]

This old thread has been automatically locked. If you think you have found something related to this, please open a new issue and link to this old issue if necessary.