write_*()⁠ family doesn't error when writing list column

[heliconone]

The write_*() family of functions currently do not error when the data contains a list column (#938). Trying to write a matrix column however does still give the expected error.

library(tibble)
library(readr) # readr 2.15 & 2.1.5.9000

# List column doesn't error - file is written with an empty column 
tibble(id = 1:3, 
       x = lapply(1:3, seq)) |> 
  write_csv("file1.csv")

# Matrix column errors as expected
tibble(id = 1:3, 
       x = matrix(1:3, 3)) |> 
  write_csv("file1.csv")
#> Error in `cli_block()`:
#> ! `x` must not contain list or matrix columns:
#> ✖ invalid columns at index(s): 2

[iofarm]

Related: tidyverse/vroom#391, #1341

Also, the relevant unit test misses that write_delim() doesn't throw an error for list columns because it uses a data frame that also has a matrix column:

  df <- data.frame(
    x = LETTERS[1:4],
    y = I(list(1, "foo", 2:9, iris)),
    z = I(matrix(1:16, nrow = 4))
  )
  expect_snapshot(
    write_csv(df, tempfile()),
    error = TRUE
  )