`write_parquet()` fails to write an empty `data.frame`

[ChandlerLutz]

empty_df <- data.frame(col1 = character(), col2 = numeric(), col3 = logical())
nanoparquet::write_parquet(empty_df, file = "tmp.parquet")

Produces the error:

Error in seq.default(1L, nrow(x), by = default_size) : 
  wrong sign in 'by' argument

However, arrow::write_parquet() seems to work. I'm not sure if this error is by design or not.

Session Info:

R version 4.4.3 (2025-02-28)
nanoparquet_0.4.2

[torfason]

Ran into this as well. Seems closely related to #138