如何调整rhandsontable中的下拉级别

我有下面的简单数据框：

DF2 = data.frame(agency_postcode = factor(rep(c(12345,45678,24124,32525,32325),2)),
                 car_group=factor(rep(c("Microcar","City car","Supermini","Compact","SUV"),2)),
                 transmission=factor(rep(c("automatic","manual"),5)))

基于此，我创建了一个rhandsontable。问题是，当我对数据帧进行子集时，我仍然会得到下拉列表中其他列的所有级别，而我只希望看到那些与我用来子集的值相关的级别。在下面的示例中，我应该在显示下拉列表时使用

'12345'

，而不是所有级别

library(rhandsontable)

rhandsontable(DF2[ which(DF2$car_group=='Microcar'), ], rowHeaders = NULL, width = 550, height = 300)

---

我发现下拉列表显示了所有存在的因素，因此我根据我的子集重新计算了因素，如：

newdata <- DF2[ which(DF2$car_group=='Microcar'), ]




for(i in 1:ncol(newdata)){
     newdata[,i] <- factor(newdata[,i])
   }

newdata