# NOT RUN {
orig <- align(jams)
align(jams) <- "right"
align(jams)
align(jams) <- orig
set_align(jams, "right")
set_align(jams,
2:3, 1, "right")
map_align(jams,
by_rows("right", "left"))
# }
Run the code above in your browser using DataLab