slides 12:15 all NA

[nspyrison]

data(flea)
flea_std <- tourr::rescale(flea[,1:6])

rb <- tourr::basis_random(n = ncol(flea_std))
mtour <- manual_tour(basis = rb, manip_var = 4)
sshow <- create_slideshow(flea_std, mtour)

View(sshow[[1]])

[nspyrison]

presumably related to:

R> sshow <- create_slideshow(flea_std, mtour)
Error in `$<-.data.frame`(`*tmp*`, phi, value = c(1.06324555026535, 0.85380604002603,  : 
  replacement has 15 rows, data has 1110

[nspyrison]

fixed with the change to manual_tour, walks were producing an extra slide each.