reprtree with caret

[msuprun]

hi, i've seen people also posting similar issue that i get when trying to use the package to plot random forest results from the caret fit. Any way around it? Here is the error I am getting:

zz <- getTree(rf.best$finalModel, k=1, labelVar=TRUE)
realtree <- reprtree:::as.tree(zz, rf.best$finalModel)
>> Error in data.frame(var = fr$var, splits = as.character(gTree[, "split point"]),  : 
  arguments imply differing number of rows: 117, 0