Can't write/append an empty data frame

[mgirlich]

con <- ...

noctua::noctua_options()
df <- data.frame(x = integer())

DBI::dbWriteTable(con, "test_df", df)
#> INFO: Special characters "\t" has been converted to " " to help with Athena reading file format tsv
#> Error in seq.default(1, max_row, as.integer(max.batch)): invalid '(to - from)/by'

^{Created on 2023-05-23 with reprex v2.0.2}