# NOT RUN {
orig <- left_padding(jams)
left_padding(jams) <- 20
left_padding(jams)
left_padding(jams) <- orig
jams2 <- set_left_padding(jams,
20)
left_padding(jams2)
jams3 <- set_left_padding(jams,
2:3, 1, 20)
left_padding(jams3)
jams4 <- map_left_padding(jams,
by_rows(
20,
10)
)
left_padding(jams4)
# }
Run the code above in your browser using DataLab