Error in `$<-.data.frame`(`*tmp*`, all.leaves, value = c("1", "2")) : 
  replacement has 2 rows, data has 1
Calls: $<- -> $<-.data.frame
Execution halted