RxCrossTable：转换无效

Question

我正在执行此练习，但找不到错误。

数据是纽约出租车数据集的子样本（Github上的mht_lab2.zip）。

在本练习中，我应该使用rxDataStep将短期和长期出租车出行与短距离/长距离出租车出行列表成表（没有）。因此，我这样做：

mht_xdf <- RxXdfData('mht_lab2.xdf') # make sure the xdf-file is in your directory
rxCrossTabs(~dist_rule:dur_rule,mht_xdf,transformFunc = function(datalist){
datalist$dist_rule=as.factor(ifelse(datalist$trip_distance>5,'long','short'),levels=c('short','long'))
datalist$dur_rule=as.factor(ifelse(datalist$trip_duration>10,'long','short'),levels=c('short','long'))
return(datalist)},transformVars = c('trip_distance','trip_duration')
)

但是它返回一个错误：

Error in doTryCatch(return(expr), name, parentenv, handler) : 
  ERROR: The sample data set for the analysis has no variables.

我尝试使用transformObjects，transforms参数，并尝试使用组合。它始终返回错误。