`unchop()` doesn't enforce `ptype` for non-list columns

[mgirlich]

library(tidyr)
unchop(
  tibble::tibble(x = 1.5),
  x,
  ptype = list(x = integer())
)
#> # A tibble: 1 × 1
#>       x
#>   <dbl>
#> 1   1.5

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