actions_stream(
actions_press(keys$enter),
actions_pause(0.5),
actions_release(keys$enter),
actions_scroll(x = 1, y = 1, delta_x = 1, delta_y = 1, duration = 0.5),
actions_mousemove(x = 1, y = 1, duration = 1, origin = "pointer")
)
Run the code above in your browser using DataLab