# Basic configuration
config <- scroll_canvas()
# Custom configuration
config <- scroll_canvas(
key = "my-scroll-behavior",
direction = "x",
range = c(-2, 2),
sensitivity = 1.5,
preventDefault = FALSE
)
# With keyboard triggers and callback
config <- scroll_canvas(
enable = JS("(event) => !event.altKey"),
trigger = list(
up = "w",
down = "s",
left = "a",
right = "d"
),
onFinish = JS("() => { console.log('Scrolling finished'); }")
)
Run the code above in your browser using DataLab