# Create a basic set of behaviors
behaviors <- g6_behaviors(
g6(),
drag_canvas(),
zoom_canvas(),
click_select()
)
# Create a more customized set of behaviors
behaviors <- g6_behaviors(
g6(),
drag_canvas(),
zoom_canvas(sensitivity = 1.5),
hover_activate(state = "highlight"),
fix_element_size(
node = list(
list(shape = "circle", fields = c("r", "lineWidth"))
)
)
)
Run the code above in your browser using DataLab