# NOT RUN {
bot %>% efourier(6) %>% mshapes("type") %>% plot_mshapes
# above, a shortcut for working with the result of mshapes
# but works on list of shapes, eg:
leaves <- shapes %>% slice(grep("leaf", names(shapes))) %$% coo
class(leaves)
leaves %>% plot_mshapes(col2="#0000FF")
# }
Run the code above in your browser using DataLab