R strsplit太慢了

Question

原始数据是这样的：       modelinputparameter=c("2644971410,35,0,0,65,0.5645161290322581,0,34,0,24,0,59,0,49,526,62,74,100,0,2,74,101,0.06653992395437262,0.0,0.0,0.12357414448669202,0.5384615384615384,0.0,0.0,0.5483870967741935,0.0,0.0,0.3870967741935484,0.0,0.0,0.01773049645390071,0.041666666666666664,1.1935483870967742,0.0,0.0,0.14068441064638784,0.74,1.1935483870967742,0.14068441064638784,0.7326732673267327,0.42957136,0.012157798,0.56455743,0.027011633,0.46380696,-1.0,-1.0,-1.0,-1,1,1,0,2,1,FirstDay,3,3,-1,-1,16,1,5,1,HTL,5,9,5,9,5,0,23")

我的代码如下：

parameter_HTL <- strsplit(filter(rawdata,hotelbelongto!='SHT')$modelinputparameter, ',')
rawbetalog_HTL <- as.data.frame(do.call(rbind,parameter_HTL),stringsAsFactors = F) 

虽然rawdata有500万行，但分割数据并将它们组合到d DataFrame需要一段时间。是否有任何代码可以完成相同的工作？

最终结果如下：