数据当只有一行时,表将列表添加为列

我有一个功能,可以使用 数据表 其将向量列表分配为列。除非有数据,否则这很有效。表是一行。我在下面演示了这个问题。我如何制作数据。表将一个向量的列表分配为一列,方式与我将其分配为一个列的2个向量列表相同?

微波炉,微波炉

dat2 <- dat <- data.frame(
    x = 1:2,
    y = c('dog', 'cats'), 
    stringsAsFactors = FALSE
)

library(data.table)
setDT(dat)           # 2 row data.table
(dat2 <- dat2[1, ])  # single row data.frame
setDT(dat2)

letterfy <- function(x) strsplit(x, "") 

## works as expected when >= 2 rows
dat[, letters := letterfy(y)]
dat

##    x    y letters
## 1: 1  dog   d,o,g
## 2: 2 cats c,a,t,s

## Try on 1 row
dat2[, letters := letterfy(y)]

#Warning message:
#In `[.data.table`(dat2, , `:=`(letters, letterfy(y))) :
#  Supplied 3 items to be assigned to 1 items of column 'letters' (2 unused)

#   x   y letters
#1: 1 dog       d

数据2的期望输出

##    x    y letters
## 1: 1  dog   d,o,g