error with save_history and ida_pp index

[dicook]

t1 <- save_history(flea[, 1:6], grand_tour(1), max = 3)
Converting input data to the required matrix format.
t1 <- save_history(flea[, 1:6], guided_tour(holes(), 1), max = 3)
Converting input data to the required matrix format.
Value 0.977 81.1 % better - NEW BASIS
Value 1.151 17.8 % better - NEW BASIS
t1 <- save_history(flea[, 1:6], guided_tour(lda_pp(flea$species), 1), max = 3)
Converting input data to the required matrix format.
Error in if (cur_index > max.i) { : the condition has length > 1