如何根据列表的长度拆分字符向量

a<-c("tanaman","cabai","banget","hama","sakit","tanaman","koramil","nogosari","melaks","ecek","padi","ppl","ds","rambun")

我想根据列表的长度将字符向量拆分为列表,如下所示：

split.char<-list(c("tanaman","cabai"),c("banget","penyakit","tanaman"),c("koramil","pengecekan","rambun"))

我正在尝试使用sapply(split.char,length)来定义列表split.char的长度

Length <- sapply(split.char,length)
for(i in Length){
  split(a,Length(i))
 }

但我没有得到所需的输出,我不断收到此警告消息：

1: In split.default(ok,Length) : data length is not a multiple of split variable
2: In split.default(ok,Length) : data length is not a multiple of split variable
3: In split.default(ok,Length) : data length is not a multiple of split variable