# NOT RUN {
cube <- createCube()
plot3dFlat(cube) # generates plot of solved cube
# Plotting 'checkerboard' pattern using pipe:
require(magrittr)
createCube() %>% twistCube("(LLFFRRBB) x3") %>% plot3dFlat()
# }
Run the code above in your browser using DataLab