# NOT RUN {
wrkpl(
escape = "escape",
fn = list(
enter = function(){mv_row(1)},
left = function(){mv(0, -1)},
right = function(){mv(0, 1)},
up = function(){mv(-1,0)},
down = function(){mv(1,0)},
space = function(){cat(" ")}
)
)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab