在R中输入数据并使用非标准列拆分行

我无法使用以下格式将逗号分隔的.txt数据输入到R中：

股票1，时间1，价格1，时间2，价格2，时间3，价格3
股票1、时间4、价格4
股票2，时间1，价格1，时间2，价格2
库存2，时间3，价格3

如上所述，每行中的列数不是标准的。我想创建一个包含三列（股票、时间和价格）的数据框：

库存1时间1价格1
库存1时间2价格2
库存1时间3价格3
库存1时间4价格4
库存2时间1价格1
库存2时间2价格2
存货2时间3价格3

如何分割每一行以获得所需的数据帧

我希望这是清楚的，谢谢

我用它来工作，但它很难看：

input <- 'stock1,time1,price1,time2,price2,time3,price3\nstock1,time4,price4\nstock2,time1,price1,time2,price2\nstock2,time3,price3\n';
df <- read.csv(text=input,header=F,stringsAsFactors=F); ## replace text=input with file name
subset(setNames(reshape(df,idvar='V1',dir='l',varying=lapply(2:3,seq,ncol(df),by=2L),new.row.names=seq_len(prod(dim(df))))[-2L],c('stock','time','price')),time!='');
##    stock  time  price
## 1 stock1 time1 price1
## 2 stock1 time4 price4
## 3 stock2 time1 price1
## 4 stock2 time3 price3
## 5 stock1 time2 price2
## 7 stock2 time2 price2
## 9 stock1 time3 price3

---

input预期的输出是什么？我编辑了上面的帖子，以包含预期的输出结构。希望这能澄清问题。